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ABSTRACT 

A  matrix  treatment  of  eigenstructure  assignment  theory  as  applied  to  the 
generalized  linear  time  invariant  system  is  presented.  New  geometrical  interpretations 
of  the  constraints  on  selecting  desired  closed  loop  right  and  left  eigenvectors  as 
functions  of  the  open  loop  system  parameters  are  then  shown  to  give  qualitative 
measures  on  the  computational  complexity  of  selecting  the  vectors.  Numerical 
optimization  schemes  are  then  presented  which  satisfy  these  geometric  interpretations 
for  subsequent  encoding  of  an  interactive  eigenstructure  synthesis  program,  EI  GENS. 
Robust  decoupling  controllers  are  then  synthesized  via  EIGENS.  A  new  theoretical 
application  of  eigenstructure  assignment  to  reconfiguring  damaged  digital  flight 
controllers  is  then  presented.  The  thesis  concludes  with  reconfigured  solution 
demonstrations  as  applied  to  the  FA- IS  aircraft. 
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I.  INTRODUCTION 

Modification  of  linear  or  non  linear  dynamic  system  behaviours  via  feedback 
control  of  either  the  estimated  or  observed  variable  or  the  dynamic  state  variable  is  a 
fundamental  tool  of  modern  control  engineering.  Such  desired  modifications  might 
include  (Ref  Ij: 

a.  Stabilizing  otherwise  unstable  systems. 

b.  Decoupling  overall  system  response  to  plant  or  controller  noise, 

c.  Desensitizing  system  performance  as  a  function  of  plant  variations  (robustness)  or, 

d.  Invoking  a  desired  transient  response  characteristic  and  modal  signature. 

For  linear  time  invariant  single  input  single  output  (SISO)  systems,  calculation  of 
the  required  feedback  to  perform  one  of  these  desired  system  behaviours  is  relatively 
straight  forward  and  well  documented  [Refs.  2.2>}.  The  SISO  static  feedback  problem  is 
additionally  characterized  by  a  specific  design  specification.  The  classic  pole  placement 
problem  for  example  results  in  solving  a  full  rank  linear  system  of  equations  for  the 
unknown  feedback  gains.  These  feedback  gains  will  then  invoke  a  set  of  closed  loop 
poles  which  in  turn  give  rise  to  specific  transient  behaviours.  Further  modification  of 
the  modal  behaviour  of  the  system  can  only  be  accomplished  through  a  different  set  of 
feedback  gains.  This  limited  degree  of  freedom  of  the  feedback  design  space  o[  the 
classical  SISO  dynamic  problem  can  additionally  be  interpreted  as  a  bound  on  what 
performance  specifications  one  can  designate.  Specification  of  additional  system 
modification  such  as  modal  decoupling  for  example  is  not  possible. 

Design  of  acceptable  feedback  compensations  for  linear  time  invariant  multi 
input  multi  output  (MIMO)  systems  are  primarily  treated  by  state  space  solution 
techniques  of  modern  control.  As  modern  control  theory  can  also  treat  non-linear  and 
time  varying  dynamic  systems,  this  time  domain  approach  has  proved  successful  both 
computationally  and  analytically.  The  linear  quadratic  gaussian  (LOG)  problem  is  a 
prime  example  of  a  successful  time  domain  solution  approach  [Refs.  4,5,6].  Frequency 
response  methods,  along  with  such  eigenvalue  design  approaches  as  characteristic  loci 
and  dyadic  expansions  and  non  -  eigenvalue  methods  as  the  inverse  Nyquist  array 
technique   have   also   been   noted   in   the   literature   [Ref.  7].     More   importantly,   the 
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underlying  theme  in  all  these  design  methodologies  is  that  the  resulting  set  of  feedback 
gains,  F,  which  satisfy  a  singular  design  criteria  such  as  eigenvalue  placement, 
maximizing  a  multivariable  robustness  measure  [Ref.  S]  or  minimizing  a  particular 
quadratic  cost  function  [Ref.  9]  for  example,  is  not  unique.  This  non  uniqueness  of 
solution  ideally  allows  the  multivariable  controller  design  problem  to  be  formulated  for 
solution  by  numerical  optimization  techniques. 

Exploiting  the  specification  of  the  eigenvectors  of  a  MIMO  closed  loop  system 
via  numerical  optimization  techniques  is  the  prime  motivation  of  this  research.  Results 
include  the  following. 

a.  An  interactive  algorithm  for  eigenstructure  svnthesis  and  analvsis  of  MIMO 
systems. 

b.  An  analvsis  of  both  left  and  right  eieenspaces  as  geometric  interpretations  of 
algebraic  restrictions  on  closed  loop  eigenvector  specification  published 
previously,  and 

c.  A  new  application  of  eigenstructure  assignment  to  reconfiguring  digital  {light 
controllers  for  a  class  of  damaged  fight  control  systems. 

Subsequent    to    a    discussion    of  previous    reported    research    in    eigenstructure 

assignment,  a  new  matrix  treatment  of  eigenstructure  theory  is  presented.     This  is 

followed  by  a  description  of  the  numerical  optimization  techniques  used  for  designing 

particular  multivariable  controllers.     Applications   of  these  numerical   techniques   to 

design  of  various  robust  decoupling  controllers  are  then  shown.  The  latter  part  will 

present  the  theoretical  framework  of  a  new  application  of  eigenstructure  assignment  to 

the  synthesis  of  reconfigured  digital  flight  controllers.    The  thesis  will  then  conclude 

with  reconfigured  solutions  for  specific  classes  of  damage  to  the  F-1S  tactical  aircraft. 
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II.  BACKGROUND 

The  following  state  variable  equations  define  the  linear  time  invariant  system 
used  throughout  this  thesis  for  the  continuous  time  domain.  The  state,  output,  and 
control  equations  are. 


x  =  Ax  -  Bu  -  Gjd  (eqn  2.1) 


y  =  Cx  +  Du  (eqn  2.2) 

u  =  Fy  -  Co"  (eqn  2.3) 
where  each  vector  is  defined  as  elements  of  the  following  vector  spaces. 

xel"  (eqn  2.4) 


y  e  Ml  (eqn  2.5) 


u  E  Mm  (eqn  2.6) 

6eMc  (eqn  2.7) 

The  individual  system  matrices  are  defined  as  follows. 
A  =  n  x  n  plant  matrix 

B  =  n  x  m  control  matrix 

G,   =  n  x  c  feed  forward  command  state  matrix 

C  =  /  x  n  output  matrix 

D  =  /  x  m  feed  forward  output  matrix 
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F  =  m  x  /  feedback  gain  matrix 

G2  =  m  x  c  feed  forward  command  input  matrix 

The  flexibility  afforded  by  eigenstructure  assignment  to  design  of  linear  time 
invariant  MIMO  state  feedback  controllers  has  been  well  documented  since  the  mid 
1970's.  Moore  [Ref.  10]  defined  this  flexibility  of  design  beyond  specification  of  closed 
loop  eigenvalues  in  terms  of  allowable  sets  of  closed  loop  eigenvectors  for  systems  with 
distinct  eigenvalues.  In  addition,  he  demonstrated  that  for  those  eigenvalues  which 
were  invariant  under  state  feedback  {uncontrollable),  design  freedom  of  eigenvector 
specification  still  existed  without  rigorous  constraints.  During  the  same  research 
period,  Srmathkumar  [Ref.  11]  showed  that  for  controllable  systems  with  n  states  and  m 
inputs,  n  closed  loop  eigenvalues  and  'm  x  n'  elements  of  the  corresponding  eigenvector 
matrix  may  be  arbitrarily  specified.  A  key  additional  constraint  is  that  no  more  then 
'm'  elements  of  each  individual  eigenvector  may  be  specified  simultaneously.  Klein  and 
Moore  [Ref.  12]  extended  the  results  of  Moore  [Ref.  10]  to  include  systems  with  a  given 
set  of  non-distinct  eigenvalues.  The  algorithm  presented  by  these  researchers  enables  a 
designer  to  invoke  an  allowable  closed  loop  Jordan  eigenstructure  via  state  feedback. 

For  MIMO  systems  employing  output  feedback.  Srinathkumar  [Ref.  13]  presented 
an  eigenstructure  design  theorem  that  has  become  a  foundation  for  many  researchers 
engaged  in  analysis  of  such  MIMO  systems.    Restated  here. 

for  systems  with  'm'  inputs  and  7'  outputs,  max  (m,f)  closed  loop  eigenvalues 
can  be  specified  and  max  (m,f)  eigenvectors  or  reciprocal  vectors  by  duality 
can  be  partially  assigned  with  min  {m,l)  elements  of  each  eigenvector  specified. 

As  the  analytical  treatment  of  eigenstructure  assignment  became  familiar, 
subsequent  workers  began  to  explore  applications  to  some  existing  design  problems. 
Two  examples  are  noted.  Sebakhy  and  Abdel  -  Moneium  [Ref.  14]  presented  an 
algorithm  for  computing  state  feedback  gains  which  invoked  minimum  time  responses 
(deadbeat  controllers)  for  multivariable  linear  discrete  time  systems  which 
simultaneously  allowed  the  designer  flexibility  in  selecting  the  closed  loop  eigenvectors. 
Klein  [Ref.  15]  provided  guidelines  for  constructing  state  feedback  decoupling 
controllers  which  are  robust  to  small  perturbations  by  means  of  an  eigenvector 
approach.  Noteworthy  in  this  work  is  the  use  of  geometrical  interpretations  [Ref.  16] 
to  analysis  of  the  allowable  closed  loop  design  space  as  functions  of  open  loop 
parameters. 
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'  Andry,  Shapiro  and  Chung  [Ref.  17]  extended  the  analytical  work  in 
eigenstructure  assignment  by  investigating  the  constrained  output  feedback  case.  By 
assigning  fixed  zeroes  to  specified  feedback  gain  elements,  they  noted  that  engineering 
flexibility  is  gained  by  the  designer  in  terms  of  being  able  to  compute  a  spectrum  of 
satisfactory  controllers.  This  enables  one  to  compare  the  entire  range  of  controllers 
(full  stale  feedback  through  constrained  output  feedback)  with  respect  to  performance. 
cost,  and  reliability. 

Magni  and  Herail  [Ref.  IS]  presented  methods  which  invoke  disturbance 
decoupling  via  output  feedback.  These  researchers  used  the  design  freedom  of 
eigenvector  specification  to  minimize  the  norm  of  the  transfer  matrix  between  the 
particular  disturbance  and  the  controlled  state  variables.  This  in  effect  attenuated  the 
particular  disturbance  in  the  resulting  system  response.  They  applied  these  results  to 
an  aircraft  gust  alleviation  (1  -  cosine)  problem  with  some  success. 

Eastman  and  Bossi  [Ref.  19]  generalized  the  linear  quadratic  gaussian  eigenvalue 
placement  technique  of  Solheim  [Ref.  20]  to  include  specification  of  the  allowable 
closed  loop  eigenvectors.  An  iterative  algorithm,  eigenvector  specification  was 
accomplished  by  manipulating  the  geometric  structure  of  the  Ricatti  matrix  at  each 
iterative  stage. 

Numerical  methods  for  computing  robust  state  feedback  gains  as  explicit 
functions  of  the  closed  loop  eigenstructure  were  presented  by  Kautsky.  Nichols,  and 
Van  Dooren  [Ref.  21].  Noteworthy  in  this  work  is  the  exploitation  of  an  established 
matrix  factorization,  the  singular  value  decomposition  (SVD)  [Ref.  22].  Through  the 
use  of  SVD  these  authors  arrived  at  an  expression  for  full  state  feedback  gains  as  an 
explicit  function  of  the  closed  loop  eigenstructure.  In  this  thesis,  an  extension  of  their 
analysis  to  the  output  feedback  case  involving  the  closed  loop  left  (or  dual) 
eigenvectors  will  be  presented. 

Of  the  several  analytical  works  which  focus  on  eigenstructure  assignment  for 
linear  dynamic  systems,  mention  should  be  made  of  the  paper  by  Sobel  and  Shapiro 
[Refs.  23.24].  A  two  part  work.  Part  I  [Ref.  23]  presents  eigenstructure  assignment 
theory  in  a  tutorial  fashion.  Part  II  [Ref.  24]  presents  informative  applications  to  flight 
control  design  via  output  and  constrained  output  feedback  controllers  which  were  to 
meet  specified  modal  structures. 

Several  recent  authors  have  continued  the  research  of  applying  eigenstructure 
assignment  theory  to  linear  state  feedback  design.     Miclke,  Carraway,  and  Marefat 
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[Ref.  25]  presented  an  interactive  design  algorithm  using  the  classic  results  of 
Srinathkumar  [Ref.  13]  and  [Ref.  10]  while  Liebst  and  Garrad  [Ref.  26]  applied  the 
work  of  Andry,  et.  al.  [Ref.  17]  to  aircraft  flutter  control  and  gust  alleviation  problems. 
White  and  Speyer  [Ref  27]  presented  innovative  results  of  the  application  of 
eigenstructure  assignment  to  failure  detection  filters,  a  type  of  observer. 

Recent  analytical  research  in  eigenstructure  theory  has  centered  on  subspace 
characterizations  of  the  allowable  sets  oi  closed  loop  eigenvectors.  Fletcher,  Kautsky. 
Kolka.  and  Nichols  [Ref.  2S]  arrived  at  explicit  expressions  of  feedback  gains  as 
functions  of  right  and  left  eigenstructures.  This  paper  provided  the  initial  motivation 
to  examine  the  increased  eigenvector  constraints  imposed  by  output  feedback  in  terms 
of  the  dual  constraints  on  the  allowable  left  eigenvectors.  Sogaard-Anderson. 
Trostmann.  and  Conrad  [Ref.  29]  characterized  the  sets  of  allowable  right  and  loft 
eigenvector  sets  in  terms  of  residual  subspaces  defined  by  the  matrix  residuals 
associated  with  the  desired  closed  loop  eigenvalues.  This  work  however,  did  not 
explicitly  examine  the  left  eigenvector  sets  as  members  of  a  particular  subspace.  This 
thesis  will  examine  such  a  membership. 

In  this  thesis,  research  objectives  were  accomplished  in  two  phases.  The  initial 
phase  concentrated  on  the  coding  of  an  interactive  eigenstructure  design  algorithm 
(EIGE!\TS)  for  linear  dynamic  systems  with  no  restrictions  as  to  state  or  output 
feedback  [Ref.  30].  Applications  o[  the  algorithm  to  design  oi"  robust  decoupling 
controllers  were  successfully  performed  on  the  CH-47  helicopter.  Further  application 
to  design  of  a  decoupling  output  controller  for  the  L- 1011  transport  was  also 
accomplished  through  execution  of  the  EIGENS  algorithm.  The  latter  phase  of  the 
research  entailed  developing  geometrical  interpretations  of  the  restrictions  of  choosing 
allowable  right  and  left  eigenvectors,  innovating  a  new  application  of  eigenstructure 
assignment  to  reconfiguring  digital  flight  controllers,  and  an  application  of  this  new 
concept  to  the  F/A-1S  tactical  aircraft.  Let  us  now  turn  to  developing  the  necessary 
eiaenstructure  theorv  for  linear  dvnamic  svstems  for  use  throushout  the  thesis. 
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III.  EIGENSTRUCTURE  THEORY  FOR  LINEAR  TIME  INVARIANT 

SYSTEMS 

A.       PRELIMINARIES 

1.  The  Singular  Value  Decomposition 

Matrix  and  vector  notation  used  throughout  this  thesis  is  noted  in 
APPENDIX  A.  The  matrix  singular  value  decomposition  and  the  matrix  pseudo  - 
inverse  are  reviewed  below. 

Consider  a  matrix  B,  where  B  eMnxm.  The  singular  value  decomposition 
(SVD)  of  B  is  defined  as  [Ref.  22]. 

B-  UbLbV  (eqn3.1) 

T 

where  U,   and  \"b     are  orthogonal  matrices  of  order  n  and  m  respectively.    The  matrix 

L.  is  a  diagonal  matrix  of  the  singular  values  of  the  matrix  B. 

b  - 

Ib  =  diagfcrl.tfy-tO  (eqn  3.2) 

where  p  is  min(n.m). 

Additionally,  the  singular  values.  c,  are  cbmmonlv  defined  in  terms  of  the 

T 

spectrum  of  BB     such  that. 


CTj(B)  =  V^IBB1)  (eqn  3.3) 


In   the   arguments  which   arise   in   this   thesis,   the   following   block   form  of 
equation  3.1  will  be  used  extensively  for  full  rank  matrices  where  n  ^  m. 


"-   IL'bo^,) 


Zb 


(eqn  3.4) 


0) 

where  <t>  denotes  a  null  matrix  and  Zb  is  defined  by 


Zb  =  Zb\'J  .  (eqn  3.5) 
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Since  it  is  assumed  that  B  is  of  full  rank,  note  that  L^  is  now  a  square  mxm 
matrix  where  the  null  blocks  of  equation  3.2  have  been  disregarded.  In  all  the 
following  discussions.  Il  will  be  assumed  to  be  square.  The  linear  space  dimensions  of 
the  block  matrices  are  shown  below. 


Uboe.^nxm  (eqn  3.6] 


UMe.^nx(n'm>  (eqn?.") 

Zbe&mxm  (eqn  3.8) 

(Pe.^(n-m)xm  (eqn  3.9) 

Note  that  for  non  -  singular  square  matrices,  L\,  does  not  exist  and  equation 
3.4  reduces  to 

B  =  UbZb  =  UboZb  (eqn  3.10) 

Useful  identities  associated  with  the  matrix  singular  value  decomposition  are 
noted  below. 

cr1^...(Tr><yr+I  =  ...  =  0  (eqn  3.11) 

where  r  =  rank(B). 

(T^B)  ■  ffmax(B)  (eqn  3.12) 

ffr<B>  ~  <WB)  (eqn  3.13) 

l|B||2  ■  ^(B)  (eqn  3.14) 
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For  square  matrices,  where  B  e  -i%nxn.  the  two  norm  condition  number  of  the 
matrix  B.  K-^B}.  is  defined  as. 

K2(B)=<r1(B)/<Tn(B)  (eqn3.15) 

2.  The  Matrix  Pseudo  Inverse 

The  matrix  pseudo  inverse,  often  referred  to  as  the  generalized  inverse,  is 
defined  in  the  least  squares  ser.se  in  the  following  way.  For  the  matrix  B  s  Mnxm,  the 
-   :  inverse.  3     .  is  the  unique  Frobenius-norm  solution  to. 

min  ||  BB+  -  IQ  ||  F  (eqn  3.16) 

Additionally.  B~  satisfies  the  classic  Moore  -  Penrose  conditions. 

BB"B  =  B  (eqn  3.17) 

B~BB~   =  B"  (eqn  3.18) 

(BB~  ,T  =  B~B  (eqn  3.19) 

■  B~B)T  =  B~B  (eqn  3.2 

In  this  thesis,  the  singular  value  decomposition  will  be  used  to  define  the 
matrix  pseudo  inverse  in  the  following  way  [Ref.  31]. 

B"  =  \v'ub0T  (eqn:,21) 

where. 

B~    £.^rr*-xn  (eqn  3.22) 
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It  can  be  shown  that  equation  3.22  satisfies  the  Moore  -  Penrose  conditions. 
Proof  of  equality  for  equation  3.17  is  shown  below.  Substituting  the  expression  from 
equation  3.21  into  equation  3.17  yields. 

BB  +  B  =  (Ub0LbVbT)(VbLb-1Ub0T)(Ub0XbVbT)  (eqn  3.23) 

Since. 

VbTVb  =   Im  (eqn  3.24) 

and, 

Ub0Tub0   =    lm  '  (eC5n  125) 


then  equation  3.23  reduces  to. 

BB  +  B 


+"  n  =   i  v     v  / 1    \t   -It    v  v 


or, 

BB  +  B  =  ^bo-b-b"1  VbT  (eqn  3.27) 

Further,  since 

W'  -  '„,  (eqn3.28) 

then  one  has  the  final  result, 

BB  +  B  =  UborbVbT  =  B  (eqn  3.29) 


20 


B.       THE    GENERALIZED    FEEDBACK    EXPRESSION    FOR    LINEAR    TIME 
INVARIANT  SYSTEMS 

Kautsky.  Nichols,  and  Van  Dooren  [Ref.  21]  published  the  development  of  an 
expression  for  state  feedback  gains  as  an  explicit  function  of  a  desired  closed  loop 
eigenstructure.  The  following  general  derivation  follows  closely  that  of  Kautsky  et.al. 
by  expanding  their  results  to  include  the  output  feedback  case.  Generalized  in  this 
thesis  is  interpreted  to  include  output  feedback  with  the  existence  of  feed  forward  loops 
in  the  system.  Full  state  feedback  or  output  feedback  without  feed  forward  then 
become  specific  cases  of  the  final  expression. 

Consider  the  linear  MIMO  system  comprised  of  n  states,  m  inputs,  and  I  outputs 
with  output  feedback. 

x  =  Ax  +  Bu  (eqn  3.30) 

y  =  Cx  +  Du  (eqn  3.31 ) 

u  =  Fy  (eqn  3.32) 

The  classical  eigenvalue  placement  problem  written  in  vector  form  arises  from 
combining  equations  3.30.  3.31.  and  3.32  in  the  following  fashion.  Combining 
equations  3.31  and  3.32  yields. 

u  =  FCx  +  FDu  (eqn  3.33) 

and  rearranging  yields. 

(Im  -  FD)u  =  FCx  (eqn  3.34) 


Assuming  (I      -  FD)  is  not  singular  one  pre  multiplies  equation  3.34  by  (I 


m 


FD)"1  yielding, 


u  =  (Im-  FD)_1FCx  (eqn  3.35) 
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Substituting  equation  3.35  into  equation  3.30.  one  has 

x  =  Ax  +  B{(I     -  FD^FCJx  (eqn  3.36) 


m 


Upon  application  of  an  appropriate  similarity  transformation,  equation  3.36  may 
be  written  in  terms  of  the  closed  loop  system  eigenvectors,  x-.  and  eigenvalues,  k- 
[Ref.  2].  as  follows, 

X.x.  =  Ax.  4-  B'd     -  FD)-1FC)  x.  (eqn  3.37) 

ii  i  l  -   m  '     i  v    n 

In  matrix  form,  equation  3.37  becomes, 

XAX"1  =  A  +  B(Im  -  FD^FC  (eqn  3.3S) 

where  A  is  the  diagonal  matrix  of  closed  loop  eigenvalues  and  it  is  implicitly  assumed 
that  the  eigenvector  matrix.  A',  is  composed  of  linearly  independent  columns. 
Subtracting  A  from  both  sides  of  equation  3. 38  yields. 

B(Im-  FD)_1FC  =  XAX"1  -  A  (eqn  3.39) 

Now  by  exploiting  the  singular  value  decompositions  of  B  and  C  where, 

B=   L'boVbT=   L'boZb  (eqn  3.40) 

and, 

C  =  UIVT  =  U    Z  (eqn  3.41) 

C       C      C  CO         C  V       1  / 

equation  3.39  becomes, 

L"    Z.  (I     -  FD)-!FU    Z  „  =  XAX"1  -  A  {eqn  3.42) 

bo    bv  m  co      c  v   ~  ' 

Appropriate  pre  and  post  matrix  multiplication  of  equation  3.42  yields, 

(Im  -  FD^F  =  ^\J  (XAX"1  -  A)ZC-1UC0T  (eqn  3.43) 
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and  an  additional  pre  matrix  multiplication  of  equation  3.43  by  by  (I     -  FD)  results  in, 


m 


F  =  dm  -  FD)Zb"luboT(X^  X"]  -  Wc'lVcoJ  (eqn  3.44) 

Let  us  now  define  the  eigenstructure  matrix  L,  as, 

L  =  (XAX"1  -A)  (eqn  3.45) 

Rearranging  equation  3.44  with  the  substitution  of  equation  3.4.5  yields, 

F  +  FDCZb^U^LZc^U^T)  -  Zh-[VhjLZc-lVcJ  (eqn  3.46) 

Now  define  Q  as% 

Q=  Zb"1UboTLZc"1UcoT  (eqn  3.47) 

Then  equation  3.46  becomes, 

F(Im  +  DQ)  =  Q  (eqn  3.48) 

and  appropriate  post  matrix  multiplication  of  3.48  yields  the  following  general 
expression  for  the  least  square  output  feedback  gain  matrix,  /",  as  a  function  of  a 
desired  closed  loop  eigenstructure,  XAX    . 

F  =  Q(Im  +  DQ)*1  (eqn  3.49) 

Note  that  the  right  hand  side  of  equation  3.49  is  a  function  of  the  pseudo 
inverses  of  B  and  C  expressed  in  equation  3.47  .  The  feedback  gain  matrix.  F, 
therefore  is  computed  based  on  these  least  square  solutions.  As  such,  F  will  invoke  the 
desired  closed  loop  eigenstructure  X  and  A.  in  the  least  square  sense.  For  systems 
where  the  number  of  states,  inputs,  and  outputs  are  identical,  then  the  solution 
becomes  exact.  As  the  number  of  inputs  and  outputs  vary,  then  the  solution  becomes 
inexact  by  the  nature  of  the  pseudo  inverse.  This  is  a  numerical  interpretation  of  the 
classic  restrictions  on  the  desired  eigenstructure  presented  by  Srinathkumar  [Ref.  11]. 
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A  proof  of  this  result  using'  the  matrix  equations  presented  in  this  thesis  is  shown  in 
Appendix  B.  Equation  3.49  is  therefore  more  correctly  termed  the  least  square  solution 
for  the  feedback  gains,  F.  It  is  this  solution  which  was  used  for  the  results  presented  in 
this  thesis. 

Up  to  this  point,  no  restrictions  have  been  placed  on  the  desired  right  eigenvector 
matrix,  AT,  other  than  the  right  eigenvectors  must  form  a  linearly  independent  set. 
Additional  restrictions  on  the  right  eigenvectors  are  shown  in  the  following 
development.    Rewriting  equation  3.39  in  block  form  yields. 


D-'bo  u 


bo  ^b 


11 


(I     -FD)_1FC  -  XAX"1  -A 

v   m 


(eqn  3.50) 


T 
Pre  multiplying  both  sides  of  3.50  by,  {L"bo  Lbl}     one  has. 


_o_ 


(I     -  FD'f^FC  = 
v  m 


u 


T-, 


bo 


r    T 

LLbl    j 


(XAX_1-A)  (eqn  3.51) 


Upon    multiplying    equation    3.51    by    -1,    one    has    the    following    relationship 
resulting  from  the  lower  block. 


4>  =  UblT(A  -  XAX"1) 


'eqn  3.52) 


Equation  3.52  is  the  matrix  relationship  [Ref.  21]  from  which  the  subspace  constraint 
on  each  right  eigenvector  may  be  obtained.  This  subspace  constraint  is  repeated 
below. 


x.  £  N(U,  ,T(A  -  X.I  )] 

i  -     bl     v  in'-1 


(eqn  3.53; 


where  N  denotes  null  space.    Equation  3.53  is  the  only  subspace  restriction  on  the 
desired  linearly  independent  right  eigenvectors  for  the  full  state  feedback  case. 

The  dimension.  d{  ),  of  this  particular  subspace  hereafter  referred  to  as  the  right 
eigenspace,  can  be  defined  in  the  following  way.  Denoting  Ker  P  as  the  kernel  or  null 
space  and  Im  P  as  the  image  or  range  space  of  a  mapping  operator  P;  one  has  the 
identity  [Ref.  16] 


d(X)  =  d(Ker  P)  +  d(Im  P) 
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(eqn  3.54) 


where  Im  P  =    PX.    In  this  case.  X  is  the  n  -  dimensional  state  space  spanned  by  the 
linearly  independent  right  eigenvectors.    Solving  equation  3.54  for  d(Ker  P),  one  has, 

d(Ker  P)  =  n  -  d(Im  P)  (eqn  3.55} 

Since  d(Im  P)  is  also  defined  as  the  rank  of  P,  one  may  rewrite  equation  3.55  as, 

d(Xer  P)  =  n  -  rank(P)  (eqn  3.56) 

Substituting  the  right  eigenspace  operator  for  P  now  results  in  a  definition  for  the 
dimension  of  the  right  eigenspace. 

d(Ker:lMT(A  -  XT^)})  -  n  -  rank{UblT(A  -  \\n))  (eqn  3.56) 

and  since. 

rank{L'blT(A  -  Llfl)}  =  n  -  m  (eqn  3.58) 

for  full  rank  control  (rank(B)  =  m)  matrices,  one  has  the  following  result, 

d(N{UblT(A  -  Xjln  )})=  m  (eqn  3.59) 

where  Ker  has  been  replaced  with  the  original  notation  for  the  null  space  operator.  N. 

Therefore,  the  allowable  right  eigenvector  x..  must  be  a  member  of  an  m 
dimensional  null  subspace  defined  by  equation  3.53  .  Note  further  that  for  a  rank 
degenerate  control  matrix,  B,  the  subspace  likewise  becomes  dimensionally  degenerate. 

It  will  now  be  shown  that  in  the  presence  of  output  feedback,  an  additional 
restriction  of  the  left  eigenvectors  results  from  a  similar  analysis.  In  order  to  show  this 
additional  restriction,  let  us  initially  assume  the  feed  forward  matrix,  D  to  be  identically 
null  which  is  the  case  of  output  feedback  without  the  addition  of  transmission  or 
blocking  zeroes.  There  is  no  loss  of  generality  with  this  assumption.  In  this  case, 
equation  3.48  reduces  to. 

F  =  Q  =  Zb-1UblTLZc-1  UcoT  (eqn  3.60) 
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and  substituting  the  expression  for  L  yields, 


F  =  Z.-'l'    T(XAX-]  -  A)  Z  ^U 

u  DO  r 


C  CO 


(eqn  3.61) 


with  the  constraint  that  each  right  eigenvector  is  a  member  of  a  specific  null  space  as 
expressed  by  equation  3.53  . 

Pausing  briefly,  note  that  if  one  assumed  all  the  states  were  available  for 
feedback.,  where  the  output  matrix,  C.  becomes  I  .  equation  3.61  reduces  to  the 
expression  shown  previously  [Ref.  21], 


F  =  Zb-1UboT(XAX"1  -  A) 


(eqn  3.62) 


Comparing  equations  3.62.  3.61.  and  3.4S,  one  notes  the  increased  cost  in 
computing  F  when  proceeding  from  full  state  feedback  to  output  feedback  with  feed 
forward  control. 

Let  us  now  return  to  analyzing  the  impact  of  output  feedback  on  the  left 
eigenvectors  by  transposing  equation  3.3S  with  D  identically  null. 


.CTFTBT  .  AT  .  X-TATXT 


(eqn  3.63) 


"T 

Factorization  of  C     via  singular  value  decomposition  yields. 


L^cto  LctlJ 


"LctVctl  FTBT      ■  AT-X-TATXT 


L     0)  J 


(eqn  3.64) 


T 


Pre  matrix  multiplication  of  equation  3.63  by  {L*cl0  ^cl\}     yields, 


I    V 

ct     ct 


L    4>    J 


FTBT  = 


UrtnT1(AT  .  X-TATXT} 


cto 


T 

ctl    J 


(eqn  3.65) 


and  from  the  lower  block  of  equation  3.65, 


:TnTx   _ 


T/aT        V-TaTvTn 


^(F'B1)  =  <P  =  U^MA1  -  X^A'X1) 


(eqn  3.66) 
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Now  using  the  following  definition  [Ref.  22]  of  the  left  eigenvector  matrix.  T. 

T  =  X"T  (eqn  3.67) 

equation  3.66  becomes, 

0>  =  UctlT(AT  -  T^r1)  (eqn  3.68) 

and  since. 

A  =  AT  (eqn  3.69) 

the  final  matrix  expression  for  equation  equation  3.66  becomes. 

<P  =  UctIT(AT  -  TAT1)  (eqn  3.70) 

Post  multiplying  equation  3.70  by  T  yields, 

<PT  =  UctlT(ATT  -  TA)  (eqn  3.71) 

and  in  vector  form, 

(0}   =  UctlT(AT-XiIn)ti  (eqn  3.72) 

and  hence  for  the  output  feedback,  case,  the  ith  left  eigenvector  must  be  a  member  of 
the  following  null  space, 

lENfU^W-^y  (eqn  3.73) 

It  can  be  similarly  shown  that  the  dimension  of  this  space,  defined  as  the  left 
eigenspace,  is, 

d(N(UctlT(AT-Xi])}  =  /  (eqn  3.74) 

when  the  output  matrix  C  is  full  rank. 
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To  summarize  for  the  output  feedback  case  without  feed  forward  control,  the 
feedback  gain  matrix,  F,  is  explicitly  defined  by  equation  3.61  with  equations  3.53  and 
3.73  placing  constraints  on  the  right  and  left  eigenvectors  respectively.  Additionally 
note  that  for  the  full  state  feedback  case  where  C  =  I  ,  there  is  no  restriction  on  the 
left  eigenvector,  t  since  U„  r1  does  not  exist  and  anv  left  vector  would  satisfy  equation 
3.71  .  Similarly  note  that  for  the  full  state  feedback  case  where  rank(B)  is  /;.  or  for  the 
system  with  n  inputs,  there  is  also  no  subspace  constraint  on  the  right  eigenvector. 
Therefore  for  the  full  state  feedback  case  where  m  =  «,  one  can  choose  any  n  linearly 
independent  set  of  closed  loop  right  eigenvectors  for  the  desired  closed  loop  modal 
structure. 

One  now  has  at  their  disposal,  constrained  explicit  expressions  for  calculating 
static  feedback  gains  which  invoke  a  desired  closed  loop  eigenstructure  in  the  least 
square  sense.  Table  1  summarizes  the  expressions  for  the  feedback  gains  along  with 
appropriate  eigenvector  constraints  for  each  feedback  scheme. 


TABLE  1 
FEEDBACK  EXPRESSIONS  AND  EIGENVECTOR  CONSTRAINTS 


Full  State  Feedback 

DO 

T/ 


Fsf   =    Z^U^XAX-'-A) 


^Nli:bl(A-W 

Output  Feedback  without  Feedforward  Control  Loop 

Fof   =    Zb-lUb0T(XHX-1  -  AJZ^U^1 

*i  e  N{UblT(A  -  Xiln)) 

t1EN(UctlT(AT-XiIn)} 

Output  Feedback  with  Feedforward  Control  Loop 

1 


roiT   =    Fol<Im  +  DFof^' 
Xi  6  N{UblT(A  -  X^)} 


2S 


As  a  preface  to  the  ensuing  discussion,  let  us  examine  the  numerical  and  linear 
space  definitions  of  the  term  null  space.  Null  space  membership,  as  previously  defined 
by  equation  3.52  for  example,  will  not  be  exactly  satisfied  due  to  finite  precision 
arithmetic  and  system  modelling  uncertainty.  Defining  a  null  vector  as  c  and  a  null 
matrix  as  E.  where 

llslh  <  <   1  (eqn  3.75) 


ff^E)  <  <   1  (eqn  3.76) 

allows  one  to  more  clearly  define  numerical  null  space  membership.  Therefore,  let  us 
account  for  computational  precision  by  defining  the  right  and  left  null  vectors,  £  ■  and 
Z[-{  as  follows. 

cn  =  UblT(A-XiUxi  (eqn  3.77) 


£/i=  L'ctlT(AT-VrM  (eqn  3.78) 
Further,  assume  these  vectors  span  respective  right  and  left  null  spaces, 

Er=  f«rl  ei2  ~  *m3  {^n3J9) 

El  =   'c/l  c/2  •••  £/n'  (ecln  3-S0) 


where, 


Er  c  ^n-rank(B)  (eqn  3S1) 


E    c  ^n-rank(C    )  (eqn  3  82) 
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Finally  note  that  for  full  rank  B  and  C     matrices,  the  dimensions  of  the  right  and 
left  null  spaces  are  therefore, 

d(E  )  =  n  -  m  =  p  (eqn  3.83) 


d(E/)  =  n  -  /  =  q  (eqn  3.84) 

These  dimensional  definitions  are  used  in  the  following  discussion  to  more  clearly 
define  the  algebraic  constraints  on  the  allowable  eigenstructure.  Let  us  now  continue 
with  such  a  discussion. 

C.       RIGHT  AND  LEFT  EIGENSPACE:  A  GEOMETRIC  INTERPRETATION 

The  algebraic  subspace  constraints  noted  previously  can  be  difficult  to  envision 
for  large  order  systems.  In  addition,  the  added  restrictions  on  the  allowable  right 
and;  or  left  eigenvectors  as  one  progresses  from  the  full  state  feedback  -  full  rank 
control  matrix  system  to  a  constrained  output  feedback  -  rank  degenerate  control  or 
output  case  has  intuitive  geometrical  properties.  It  is  the  geometrical  implications 
imposed  by  the  algebraic  constraints  which  motivate,  in  part,  the  following  geometrical 
analysis. 

The  lattice  diagram  [Ref.  16]  has  proved  to  be  a  useful  device  to  depict 
geometrical  relationships  between  linear  vector  spaces.  The  following  geometrical 
relationships  are  implied  by  Figure  3.1. 

Ep  c  Mm  cXn  (eqn  3.85) 

d(ErP)  <  d(^m)  <  d(Xn)  (eqn  3.S6) 

where  the  symbol  <=  denotes  subspace.  Equation  3.S6  states  formally  that  the 
dimension  of  Mm  is  less  than  the  dimension  of  Xn  and  the  dimension  of  E  P  is  less 
than  that  of  Mm. 


30 


Let  us  now  assume,  that  Xn  represents  the  state  space  of  a  controllable  linear 
time  invariant  system  such  that, 

X*  =  .M{m  +    &2m  +  ...  Mnm  (eqn  3.87) 

As  there  are  non-unique  state  variable  representations  for  a  linear  time  invariant 
system,  there  may  be  several  linearly  independent  eigenvector  sets  which  are  able  to 
span  the  state  space.  However  if  a  vector  is  chosen  from  each  of  the  m-dimensional 
spaces  -dft-^1  to  form  spanning  sets,  one  has  selected  particular  eigenvectors  which  are 
associated  with  particular  eigenvalues.  It  is  this  selection  process  which  will  be  invoked 
by  the  feedback,  gain  equations  of  Table  I. 

Assume  further  that  for  each  subspace.  Mm,  there  exists  a  mapping  operator, 
N  ■.  which  maps  a  vector  from  -i?-m  into  e  -P.  a  numerical  //////  vector. 

enP  =  Nrixj  (eqn  3.88) 

Further  assume  that  any  p  of  these  null  vectors  span  a  right  null  space,  ErP. 
where, 

ErP  =   ^crlP   cr2P   -    GrnP}  <ecln  3'S9) 

where  equation  3.89  has  included  all  n  right  null  vectors. 

The  subsequent  lattice  diagram,  denoted  as  the  Right  State  Space  Lattice  is 
shown  in  Figure  3.2. 

Clearly.  N  •  can  be  taken  to  be  the  right  null  space  operator  defined  previously 
as, 

Nri  =  UMT(A  -  X,In)  (eqn  3.90) 

and  Figure  3.2  geometrically  depicts  the  right  eigenspace  constraints  posed  by  state 
feedback.  The  dual  or  left  state  space  lattice  is  similarly  constructed  and  is  shown  in 
Figure  3.3. 

The  final  tool  in  constructing  the  total  lattice  diagram  is  to  geometrically  link  the 
relationship  between  Figures  3.2  and  3.3.    Let  us  define  an  operator  P,  such  that. 
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P  =  X'TX'[  (eqn  3.91) 

Therefore,  P  maps  the  right  eigenvector  matrix.  ,Y,  into  the  left  eigenvector 
matrix,  7",  as  follows. 

T  =  PX  =  X"TX_1X  (eqn  3.92) 

and  one  may  now  map  the  allowable  n  right  eigenvectors  into  their  dual  left 
eigenvector  space. 

Likewise,  we  desire  to  develop  an  operator  which  will  map  the  right  null  vectors 
represented  by  equation  3.S9  into  their  dual  left  null  space  vectors  represented  by  E^. 

For  each  ith  null  vector,  one  would  then  have. 

Jj£ri  =  £/i  (eqn  3.93) 

In  terms  of  the  ith  right  and  left  eigenvector,  equation  3.93  becomes. 

JiNnxi  =  N/ili  <e1n  194> 

Let  us  now  define  a  vector  s^  as  the  ith  column  of  the  I  identity  matrix.  One 
may  therefore  write  an  expression  for  t-  as  follows. 

t-  =  Ts-  (eqn  3.95) 

Substituting  the  expression  for  T  from  equation  3.92  yields. 

tj  =  PXSj  =  PXj  (eqn  3.96) 

and  therefore  equation  3.94  becomes, 

JiNrixi  =  N/iPxi  <ecln  3-9T) 

Solving  for  J-  yields. 

J{  =  (NflPxiXN^)4-  (eqn  3.98) 


In  order  to  verify  that  equation  3.9S  is  correct,  one  must  show  that  J-  indeed 
maps  E_j  into  £/. 

Performing  the  mapping  yields. 

(N/jPxjXNri^  +  tNriXi)  (eqn3.99) 

Noting  that  (Nr-x-)"h(Nrix-)  is  equal  to  scalar  unity  (1.0),  then  the  mapping  of 
equation  3.99  yields. 

NfiPxj(l)  =  Efi  (eqn  3.100) 

and  Jj  maps  er-  into  E^.  In  this  way.  one  may  map  the  'n'  £  ■  null  vectors  into  the 
respective  'n'  left  null  vectors,  e^.  One  may  now  depict  the  total  space  lattice  diagram 
shewn  in  Figure  3.4.. 

The  geometrical  constraints  on  the  allowable  right  and  left  eigenvectors  shown  in 
Figure  3.4  can  be  characterized  as  follows.  The  dimensions  of  the  right  and  left  null 
spaces.  E  and  Ey  are  directly  related  to  the  rank  of  the  null  space  operators  N  and 
Nj.  For  example,  as  the  rank  of  N  decreases,  the  dimension  of  E  decreases.  Since 
the  right  eigenvector  x-  must  be  mapped  into  £  by  N  •.  the  mapping  becomes  more 
geometrically  restrictive.  In  this  way.  an  increasing  geometric  constraint  is  placed  on 
the  right  eigenvector  x-.  The  dual  is  true  for  the  left  eigenvector  t-.  One  may  state  the 
geometrical  constraints  in  the  following  way. 

Lemma  3.1:  The  expressions  of  Table  I  explicitly  define  static  feedback 
gains  which  will  invoke  a  closed  loop  right  eigenstructure.  XAX  .  iff  the 
right  eigenvectors,  x-.  which  reside  in  -i?-m  map  into  the  right  null  space  Ef 
via  the  respective  null  space  operator  N  •.  The  dual  vectors,  t-  must 
likewise  reside  in  hit  and  map  into  E^  via  N^. 

The  concept  of  right  and  left  null  spaces  comes  about  when  one  numerically 
converges  on  an  allowable  eigenvector  by  allowing  the  vector  to  rotate  until  the 
respective  null  vector.  £.  becomes  small.  In  this  way  one  numerically  converges  on 
eigenvectors  which  are  members  of  .^?jm  or  .;#■  by  minimizing  a  norm  of  £r  or  Cj.  This 
solution  technique  was  used  in  this  thesis  and  provided  the  prime  motivation  for  these 
geometrical  discussions.    Figure  3.4  has  set  the  stage  for  geometrical  analysis  of  all  the 
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feedback,  cases  to  be  presented.    Let  us  begin  with  the  state  feedback,  case  as  it  is  the 
least  restrictive  with  respect  to  allowable  eigenstructure. 

Case  I:  Full  State  Feedback  (m  =  n) 

In  this  case  the  diagram  reduces  to  a  single  node  for  each  eigenspace.  There  are 
no  restrictions  on  the  desired  vectors  other  than  linear  independence  and  the  feedback 
gains  which  will  invoke  such  a  closed  loop  structure  are  computed  via  equation  3.62  . 

Case  II:  Full  State  Feedback  {in  <  n) 
For  this  case,  one  has  an  initial  restriction  on  the  right  eigenvectors  but  none  on  the 
left.  Therefore  the  total  lattice  diagram  consists  of  Figure  3.5  with  subspace  inclusions 
for  the  right  eigenspace.  Note  the  dimension  of  E  P  defined  previously  by  equation 
3. S3  .  By  comparing  Figures  3.5  and  3.6.  one  notes  the  first  level  of  restriction  with 
regard  to  the  allowable  closed  loop  eigenstructure. 

Case  III:  Output  Feedback  (m  =  n,  I  =  n) 

Case  III  is  geometrically  identical  to  Case  I.  The  only  restrictions  are  that  the 
desired  closed  loop  right  and  left  eigenvectors  form  a  bi-orthogonal  set.  Figure  3.5 
depicts  the  appropriate  geometry. 

Case  IV:  Output  Feedback  (m  =  n,  l<  n) 

For  this  case,  the  restrictions  lie  only  with  the  left  eigenvectors.  The  lattice 
diagram  is  the  dual  of  Figure  3.6  and  is  is  shown  in  Figure  3.7. 

This  concludes  the  decoupled  constraint  cases  and  exemplifies  the  ease  of 
solution  for  the  gain  matrix  which  will  invoke  desired  closed  loop  eigenstructures.  The 
coupled  cases  arise  for  systems  employing  output  feedback  where  both  the  number  of 
inputs  and  observations  are  less  than  the  order  of  the  state  space. 

Case  V:  Output  Feedback  (in  <  n.  I  <  n,  in  =  I) 

The  lattice  diagram  for  this  case  is  constructed  by  linking  Figures  3.6  and  3.7 
with  the  mapping  operator  P  and  is  depicted  in  Figure  3.8.  Note  from  equations  3.83 
and  3.S4  that. 

d(Er)  =  d(E/)  (eqn  3.101) 

and  therefore,  the  null  spaces  are  equidimensional. 

Case  VI:  Output  Feedback  (in  <  n,  I  <  n,  in  <  I) 
The  lattice  diagram  of  Figure  3.S  remains  for  the  remaining  cases.    The  subtle 
distinction  between  Cases  V  and  Case  VI  however,  is  that  the  dimensions  of  the  left 
and  right  null  space  are  not  identical.    For  this  case, 
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d(Er)  >  d(Ez)  (eqn  3.102) 

which  implies  geometrically  that  the  right  eigenspace  constraint  is  more  easily  satisfied 
due  to  the  higher  dimension  of  the  right  null  space. 

Case  VII:  Output  Feedback  (m  <  n>  I  <  n,  /  <  m) 
Case  VII  is  the  dual  of  Case  VI,  since 

d(E,)  >  d(Er)  (eqn  3.103) 

Equation  3.103  implies  that  the  left  eigenspace  constraints  are  more  easily  satisfied 
than  those  of  the  right  eigenspace  due  to  the  higher  dimension  of  the  left  null  space. 
This  of  course  is  the  dual  of  Case  VI  in  that  the  major  computational  expense  will 
involve  converging  on  allowable  right  eigenvector  sets.  Cases  VI  and  VII  are  clearly 
computationally  more  difficult  to  solve  than  the  previous  cases.  The  quantitative 
interplay  between  the  right  and  left  eigenvector  sets  as  functions  of  the  open  loop 
parameters  remains  to  be  clearly  formulated.  The  attempt  here  was  to  show  the 
qualitative  interdependency  by  analyzing  what  was  found  to  be  true  during  the  course 
of  the  research.  It  will  be  shown  later  in  this  thesis  using  two  specific  examples  of 
Case  VI,  that  the  qualitative  interpretations  noted  above  are  correct. 

This  concludes  the  theoretical  treatment  of  eigenstructure  assignment  as 
presented  in  this  thesis.  Prior  to  discussing  some  applications  of  the  theory,  let  us 
reexamine  equations  3.77  and  3.7S  As  noted  previously,  null  space  membership  of  the 
desired  closed  loop  eigenvectors  has  been  the  central  theme  in  much  of  the  recent 
discussion.  One  must,  therefore,  numerically  devise  a  scheme  which  guarantees  such 
membership.  In  that  the  term  null  space  implies  convergence  to  a  zero  measure,  a 
candidate  for  such  a  scheme  would  clearly  involve  a  minimization.  Minimizing  a  norm 
of  the  right  null  vector  c  •  or  left  null  vector  c^-  for  example,  would  guarantee  such 
convergence.  The  mechanics  of  such  a  minimization  is  the  topic  of  the  final  chapter 
prior  to  presenting  results  of  applying  eigenstructure  assignment  to  some  existing 
control  problems. 
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Figure  3.1     Basic  Lattice  Diagram. 
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Fisure  3.2     Riehi  State  Sr>ace  Lattice  Diagram. 


Figure  3.3     Left  State  Space  Lattice  Diagram. 
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Figure  3.4     Total  Space  Lattice  Diugi 
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Figure  3.5     Case  I:  Full  State  Feedback  (m  =  n)  Lattice  Diagram. 
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Figure  3.6     Case  II:  Full  State  Feedback  (m  <  n)  Lattice  Diagram. 
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Figure  3.7     Case  IV:  Output  Feedback  (m  =  n,  1  <  n)  Lattice  Diagram. 
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Figure  3.S     Case  V:  Output  Feedback  (m  <  n,l  <  n,m  =  1)  Lattice  Diagram. 
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IV.  NUMERICAL  OPTIMIZATION 

A.       THE  AUTOMATIC  DESIGN  SYNTHESIS  (ADS)  PROGRAM 

The  use  of  numerical  optimization  techniques  as  an  engineering  design  tool  has 
matured  with  the  advent  of  higher  speed  digital  computers.  In  tandem  with  this 
growth  has  come  the  development  of  algorithms  and  design  strategies  [Ref.  32] 
available  for  a  wide  variety  of  particular  design  tasks.  Several  numerical  optimization 
techniques  and  strategies  are  resident  [Ref.  33]  in  compiled  Fortran  code  for  use  at  the 
Naval  Postgraduate  School.  In  effect,  the  Automatic  Design  Synthesis  code  can  be 
used  as  a  black  box  optimizer  for  a  wide  spectrum  of  disciplines.  It  is  not  the  purpose 
here  to  discuss  in  detail  all  the  numerical  algorithms  available  through  the  ADS  code, 
but  only  to  describe  the  general  design  philosophy  of  the  optimizer  and  to  overview  the 
particular  strategies  employed  during  the  course  of  the  thesis  research. 

A  general  purpose  code,  ADS  contains  algorithms  which  are  able  to  solve  the 
following  general  n-variable  constrained  minimization  problem. 

Minimize:  F(X) 
Subject  to: 
g:(X)    <0,j  =    l.m     inequality  constraints 

h^-(X)  =  0  ,  k  =   1,1     equality  constraints 

Xs     ^Xj    <  XjU   ,   i  =    l,n   side  constraints 

T 

where  X  =  {\j    x->    ...   x  }     is  a  design  variable  vector. 

Convergence  to  a  minimum  value  of  the  function  F(X)  without  violation  of  the 
constraint  criterion  in  accomplished  via  the  following  iterative  scheme, 

Xq+1  =  Xc1  +  aqYl+1  (eqn4.1) 

where, 

q  =  iteration  number 

S^  =  search  direction  vector 

a       =  scalar  weight  applied  to  the  search  direction 
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The  user  is  afforded  flexibility  of  further  tailoring  the  optimization  scheme  by 
being  able  to  designate  any  of  the  following  three  components  of  the  ADS 
optimization  algorithm: 

a.  Optimization  strategies  such  as  Sequential  Unconstrained  Minimization 
Techniques  (SUMT)  or  Augmented  Lagrange  Multiplier  Methods  which  allow 
the  user  to  reformulate  the  objective  lurictioh.  F(X), 

b.  Search  Direction  computation  methods  such  as  conjugate  and  variable  metric 
first  order  methods  which  compute  S4  and. 

c.  One  dimensional  search  options  such  as  Golden  Section  or  polvnomial 
interpolation  methods  which  determine  the  magnitude  of  change  in  the  design 
vanaole  during  the  minimization. 

As  the  ADS  is  designed  to  fulfill  the  general  needs  of  a  spectrum  of  engineering 
disciplines,  the  level  of  user  sophistication  beyond  correct  interpretation  of  the  calling 
arguments  is  not  necessary.  However,  as  is  the  case  of  using  any  library  type  code,  one 
must  correctly  formulate  the  objective  function  and  clearly  interpret  the  iterative  results 
of  the  ADS  code.  Due  to  the  general  nature  of  the  objective  function,  this  last 
statement  becomes  increasingly  important  when  little  is  known  of  the  order  or 
continuity  of  the  function  in  the  region  of  interest.  Two  types  of  constrained 
minimization  problems  were  formulated  for  use  during  the  research.  Problem  I  was  a 
constrained  minimization  problem  with  side  constraints  only  and  Problem  II  was  a 
constrained  minimization  with  inequality  and  side  constraints.  Let  us  discuss  the 
strategies  used  for  each  of  these  two  problems. 

Problem  I 

A  constrained  minimization  problem  with  side  constraints  may  be  posed  as  an 
unconstrained  minimization  problem.  By  specifying  bounds  on  the  design  variables 
within  a  specified  region  during  the  course  of  an  unconstrained  minimization,  one 
implicitly  invokes  the  side  constraints.  The  most  efficient  search  direction  method  for 
Problem  I  was  found  to  be  the  Broyden-Fletcher-Shanno-Goldfarb  (BFGS)  variable 
metric  method.  This  is  a  first  order  method  in  which  the  gradient  information  is 
computed  by  ADS  via  finite  difference  calculations.  Often  called  a  quasi-Newton 
method,  the  BFGS  method  computes  the  search  direction.  S^,  as  follows, 

S^  =  -  HVF(X^)  (eqn4.2) 

where  VF(X^)  is  the  ADS  computed  finite  difference  gradient  at  the  qth  step  and  H  is 
an  iteratively  computed  matrix  which  orients  the  search  direction.    Initially  (q=  1)  H  is 
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the  identity  matrix  and  therefore  the  initial  search  direction  is  in   the  direction   of 
steepest  descent.    H  is  then  updated  after  each  iteration  in  the  following  way. 

H^1  =  H^  +  D  (eqn4.3) 

where  D  is  a  symmetric  matrix  defined  as, 

D^  =  (a  +  T)ppT  d2  +  ^H%>T  +■  p(H%)T}/c  (eqn4.4) 

The  vectors  p  and  y  are  defined  by, 

p  =  X^-X^1 
y  =  7F(X*1)-  7F(X^"1) 

and  cr  and  t  are  scalar  vector  products  formed  as  follows. 

t  =  yT  H^  y 
The  one  dimensional  search  routine  used  was  the  Golden  Section  method.  As 
this  method  is  a  one-variable  algorithm,  the  single  "variable"  for  our  purposes  is  the 
vector.  X:  or  t-.  The  advantages  of  the  method  include  no  requirement  for  F(X)  to 
have  continuous  derivatives  and  in  addition  the  Golden  Section  has  a  known  rate  of 
convergence.  Among  the  disadvantages  which  impacts  our  purposes  is  that  the  Golden 
Section  assumes  the  objective  function  to  be  unimodal,  or  to  have  one  minimum  in  the 
region  of  search.  If  one  has  an  objective  function  which  for  example  has  several  local 
minima,  several  solutions  may  exist  depending  on  the  bounds  set  on  the  design 
variables.  As  will  be  shown  subsequently,  the  minimization  of  the  null  vectors,  e  ■  and 
e^-  was  performed  using  the  Problem  I  formulation. 

Problem  II 

If  one  recasts  the  inequality  constraint  as  a  penalty  function.  P(X).  where. 

P(X)  -  £{max(0,gj(X))}2      ,j  =  l,n  (eqn  4.5) 

then  one  may  also  pose  Problem  II  as  an  unconstrained  minimization  problem  in  the 
following  way  [Ref.  32].    By  forming  a  pseudo-objective  function,  <I>(X.r  ), 
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0)(X.rp)  =  F(X)  +  rpP(X)  (eqn  4.6) 

and  by  again  bounding  the  design  variables,  one  now  has  a  Sequential  Unconstrained 
Minimization  problem  (SUMT)  with  an  exterior  penalty  function.  P(X).  In  equation 
4.6.  r    is  a  scalar  weighting  applied  to  the  penalty  P(X). 

Equation  4.6  is  the  formulation  used  in  this  thesis  for  such  a  minimization.  The 
search  direction  used  for  Problem  II  was  the  Fletcher-Reeves  (FR)  conjugate  method. 
Like  the  BFGS  method,  the  FR  is  a  first-order  method  which  is  an  improved  steepest 
descent  algorithm.    The  search  direction.  S1^  for  this  method  is  defined  as, 

S^  =  -  VF(X^)  +  pqS^-!  (eqn  4.7) 

where. 

Pq  =  |VF(X^)|2:|VF(X^-i)|2  (eqn  4.8) 

As  in  Problem  I,  the  Golden  Section  method  was  used  for  the  one-dimensional  search 
routine.  Problems  I  and  II  were  the  ADS  minimization  strategies  used  during  this 
research.   They  will  subsequently  be  referred  to  as  such. 

B.       THE  NUMERICAL  OPTIMIZATION  PROBLEM 

The  fundamental  expressions  for  feedback  gains  noted  in  Table  1  involve 
eigenvector  constraints  written  in  terms  of  null  space  membership.  Further,  when  these 
null  space  constraints  are  expressed  numerically,  they  take  the  form  of  equations  3.77 
and  3.78  .  The  numerical  objective  than  becomes  one  of  minimizing  some  measure  of 
the  right  and  or  left  null  vector  which  satisfies  such  a  numerical  null  space  membership. 
For  the  right  eigenvector,  one  might  write  such  a  numerical  objective  as  an  objective 
function  expressed  in  terms  of  a  euclidean  distance  measure. 

F(X)  =  l|UblT(A  -  X1ln)x1|j2  =   ||£ri||2  (eqn  4.9) 

where  ||e  .\\->  is  the  euclidean  distance  between  the  allowable  subspace  defined  by  the 
desired  closed  loop  eigenvalue,  X.  ,  and  the  desired  right  eigenvector,  x.  .  As  the  system 
is    time    invariant,    the    design    freedom,    or   variables,   would    be    all   (unconstrained 
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minimization)  or  some  (constrained  minimization)  of  the  right  eigenvector  elements 
and  not  the  open  loop  parameters. 

1.  State  Feedback.  Controller  Synthesis 

For  purposes  of  illustration,  let  us  assume  one  is  synthesizing  a  state  feedback 
regulator  where  there  are  n  =  four  states  and  m  =  two  inputs.  Further,  one  desires  the 
following  closed  loop  eigenvector,  x  .  to  be  associated  with  the  closed  loop  eigenvalue. 
h. 


i 


Xj  =  (Xj   0  x3  0}T  (eqn4.10) 


where  x,  and  x,  •  are  unconstrained  and  may  take  on  any  numerical  value.  The 
constrained  values,  noted  by  the  zeroes  in  elements  two  and  four,  are  desired,  for 
example,  in  order  to  satisfy  a  decoupling  specification.  Mathematically,  this  is  a 
constrained  minimization  problem  and  may  be  stated  in  the  following  way. 

Minimize:  F(x.) 
where, 

FO4)  -  ||UblT(  A  -  XjIjjXxj)  ||2  =  IM2 

Subject  to: 
x,  =  0 
x4  =  0 

For  real  X..  this  is  a  four  variable  constrained  minimization  problem  with  two 
side  constraints.  By  bounding  the  design  space  (x->  =  x^  =  0),  this  becomes  a  Problem 
I  formulation.  In  terms  of  real  cost,  this  particular  synthesis  problem  would  entail  V 
such  Problem  I  minimizations  before  a  feedback  solution  is  computed.  The  side 
constraints  may  also  differ  from  vector  to  vector.  Note  further  that  for  systems  with 
complex  eigenvalues,  the  computational  cost  would  decrease  since  one  may  employ  the 
necessary  conjugate  condition  for  the  associated  complex  eigenvector.  At  this  point, 
the  minimization  problem  can  be  executed,  the  resulting  eigenvectors  are  checked  for 
independence,  and  the  feedback  controller  can  be  synthesised„  A  robust  decoupling 
controller  for  the  CH-47  helicopter  was  synthesised  by  this  method.  Results  will  be 
shown  in  Chapter  VI. 
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2.  Output  Feedback  Controller  Synthesis 

Let  us  now  assume  we  must  synthesize  an  output  feedback  controller  with 
four  states,  two  inputs,  and  /  =  3  outputs.  Computational  cost  is  increased  by  the 
output  feedback  requirement  since  in  addition  to  the  right  eigenvector  constrained 
minimization  problem,  one  of  course  must  also  satisfy  the  left  eigenvector  constraint. 
One  may  pose  this  synthesis  problem  in  a  variety  of  ways.  The  following  scheme  was 
successfully  formulated  during  the  research  reported  in  this  thesis. 

a.  Converge  on  'n'  right  eigenvectors  by  solving  'n'  Problem  I  minimizations. 

b.  Compute  the  following  right  residual  sum. 

RESr  =  Dcnll2  •  1  =   ljl  (eqn4.11) 

c.  Compute  the  corresponding  left  eigenvectors,  t:,  by  the  identity. 

T  =  X'T  (eqn4.12) 


d.      Compute   the    'n'    left   null   vectors,    zr    via   equation   3.78   and   compute   the 
following  left  residual  sum.  a 


RES,  =  Ille/il^.i  =   l,n  (eqn4.13) 

e.      Convergence  criteria  is  now  tested  as  the  sum  of  the  right  and  left  residual 
sums, 

R(X,T)  =  I(l|cn||2  +  H^lh]   <  p  (eqn4.14) 

Since  the  right  residual  sum  is  satisfied  initially,  the  left  residual  sum  will  likely 
be  out  of  tolerance.  The  design  freedom  here  is  to  allow  the  right  eigenvectors  to  vary 
in  order  to  satisfy  the  left  residual.  Convergence  is  then  obtained  by  returning  to  Step 
B.2.b.  subsequent  to  allowing  the  right  eigenvector  elements  to  change  so  as  to 
minimize  the  left  residual  sum.  In  this  way  R(X.T)  will  be  at  or  below  a  specified 
tolerance  p.  This  method  is  termed  the  indirect  method  since  the  left  eigenvector 
constraints  are  being  satisfied  by  allowing  the  corresponding  right  eigenvectors  to 
change  their  orientation. 
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One  may  state  the  output  feedback,  constrained  minimization  via  the  indirect 
method  as  a  Problem  I  formulation  as  follows. 

Minimize:  R(X.T) 

where, 

R(X.T)  =  I{Wr||firi||2  +  WjBfilj} 

Subject  to: 

Xi  <    X-    <    X 

lower         i]  upper 

where. 

X  =  Right  Eigenvector  Matrix 

T  =  Left  Eigenvector  Matrix 

W  .  W^  =  Scalar  weighting  applied  to  the  residual  sums 

The  indirect  method  for  the  output  feedback  case  can  become  computationally 
inefficient  for  systems  of  high  order.  For  example,  a  tenth  order  system  with  complex 
eigenstructure  will  contain  twenty  design  variables  per  closed  loop  eigenvalue  and 
require  a  tenth  order  complex  matrix  inversion  during  each  execution  of  step  B.2.c. 
Hence  for  large  order  systems,  the  output  feedback,  synthesis  scheme  is  modified  in  the 
following  way.  Steps  B.2.a.  -  B.2.d.  remain  the  same  however  step  B.2.e.  becomes  a 
left  eigenvector  minimization  problem  in  the  form  of  Problem  I. 

Minimize:  G(t-) 
where. 

G(tr)  =  HUcllT(AT-XiInXti)||2 

Subject  to: 

t,  <  t--  <  t 

lower         ij         upper 

Upon  convergence  to  an  allowable  t-,  the  right  null  vectors  are  then  computed 
to  check  if  the  right  eigenvectors  have  been  oriented  out  of  the  allowable  right 
eigenspace.  After  several  such  iterations,  one  begins  to-adaptively  learn  the  behaviour 
of  the  system  and  through  interactive  computer  execution,  one  will  converge  on  a  final 
solution.   This  technique  was  successfully  performed  on  an  F/A-18  dynamic  model. 

Note  that  an  advantage  of  the  indirect  method  is  that  one  can  exercise  control 
on  the  bounds  of  the  design  variables  through  the  scalar'  weightings  Wf  and  \Y[  and 
therefore  exercise  some  limits  on  the  orientation  matching. 
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3.  A  Robust  State  Feedback  Controller  Synthesis 

For  multi-variable  control  systems,  the  minimum  singular  value  of  the  return 
difference  matrix  [Ref.  34]  can  be  used  as  a  robustness  criterion. 

<im(Im  +  FG)  >  a  (eqn4.15) 

where  G  =  C(sl  -  A)_1B.  If  a  =  I,  then  the  feedback  gams.  F.  in  equation  4.15  may 
be  considered  quasi-optimal  since  <Tm  >  1  for  optimal  state  feedback  controllers  when 
the  input  weighting  matrix  is  the  identity  matrix  [Ref.  35].  By  subtracting  a  from  both 
sides  of  equation  4.15,  one  formulates  a  new  objective  function  K(X),  where, 

K(X)  =  <7m(Im  +  FG)-a  (eqn4.16) 

Substituting  the  state  feedback  expression  for  F  from  Table  I  yields 

K(X)  =  <xm-Im  +  Zb-1Ub0T(XAX-1-A)G}  -a  (eqn4.17) 

Successful  minimization  of  K(X)  with  the  constraints  (g:)  that  each  desired 
right  eigenvector  be  a  member  of  the  allowable  subspace  invoked  by  the  desired  closed 
loop  eigenvalue  will  result  in  a  robust  quasi-optimal  state  feedback  controller.  The 
uniqueness  of  this  formulation  is  that  one  can  numerically  synthesize  an  optimal  state 
feedback  controller  with  eigenstructure  specification.  This  technique  successfully 
designed  a  quasi-optimal  decoupling  controller  for  the  CH-47  and  will  also  be 
presented  in  Chapter  VI. 

4.  Feedback  Controller  Synthesis  via  Eigenvalue  Shifting 

In  B.l  and  B.2  above,  the  design  variables  are  the  eigenvector  elements  as  the 
closed  loop  eigenvalue  remains  Fixed.  One  may  recast  the  objective  function  by 
allowing  the  eigenvalue,  "k-  to  assume  the  role  as  the  design  variable  while  maintaining 
the  eigenvector  elements  fixed.  In  this  way.  the  feedback  synthesis  via  eigenvalue 
shifting  takes  the  form  of  the  following  minimization  problem. 

Minimize  H(X-) 
where, 
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H(Xi)  =  ||UblT(A  -  ^iIn)(x1)|i2 

Subject  to: 

real  lower  bound  <   Real(X-)  ^  real  upper  bound 

imag  lower  bound  <  Imag(X-)  ^  imag  upper  bound 

This  is  of  course  a  Problem  I  minimization  with  only  two  design  variables  per 
each  of  the  'n'  iterations.  An  advantage  of  this  method  is  clearly  one  of  computational 
cost.  A  disadvantage  is  that  one  might  sacrifice  modal  damping  and  natural  frequency 
at  the  expense  of  maintaining  a  desired  eigenvector  structure. 

This  concludes  the  framework  for  eigenstructure  analysis  and  synthesis  via 
specific  numerical  optimization  strategies.  Let  us  now  turn  to  a  discusssion  of  the 
algorithm  which  formulates  the  theory  presented  in  Chapters  III  and  IV. 
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V.  EIGENS:  AN  INTERACTIVE  DESIGN  ALGORITHM 

A.       DESIGN  PHILOSOPHY 

The  EIGENS  program  is  an  interactive  Fortran  algorithm  designed  for  complex 
eigenstructure  synthesis  of  systems  up  to  tenth  order.  The  tenth  order  limitation  is 
easily  modified  for  systems  of  higher  order  by  increasing  the  array  sizes  for  all  matrices 
in  the  program.  Throughout  the  development  of  the  program,  interactive  coding  was 
used  extensively  not  only  for  on  line  debugging  but  also  due  to  the  iterative  nature  of 
numerical  optimization.  In  addition,  by  the  very  nature  of  eigenstructure  assignment, 
user  familiarity  with  the  system  structure  and  subsequent  interaction  is  a  necessary 
ingredient  for  a  converged  solution  of  feedback  gains. 

In  that  the  program  developed  as  a  research-learning  program  over  the  period  of 
the  thesis  research,  some  of  the  earlier  synthesis  routines  such  as  the  Moore- Matrix  and 
Moore-Algebraic  solutions,  were  never  used  for  the  results  presented  in  this  thesis. 
They  were  written  early  on  to  gain  an  understanding  of  the  classical  results  presented 
by  Moore  [Ref.  10]  and  were  never  exercised  subsequent  to  coding  the  theory  presented 
in  Chapter  III.  All  of  the  results  presented  in  this  thesis  were  computed  based  on  the 
theory  of  Chapter  III. 

The  basic  input  data  beyond  the  necessary  open  loop  parameters  include  a 
desired  closed  loop  eigenstructure.  User  verification  of  this  data  is  by  means  of  visual 
display  of  the  data.  A  verification  data  file  is  also  written  for  future  reference  by  the 
user.  Controllability  checks  of  the  open  loop  eigenvalues  are  then  displayed  to  the 
user.  Beyond  these  checks,  the  program  relys  on  the  user  for  guidance  during  the 
numerical  synthesis  portion.    Some  examples  of  the  guidance  needed  are: 

1.  Upper   and   lower    bounds    on   the    arbitrary   and    specified   right    eigenvector 
elements  or  eigenvalues  (Problem  I  minimization). 

2.  Acceptance  of  the  closed  loop  design  based  on  the  null  space  residuals. 

3.  Number  of  iterations  and  values  for  p  (Problem  II  minimization). 

Thus  the  user  becomes  a  required  feedback  loop  in  the  synthesis  process.  This  is 
the  basic  philosophy  of  the  EIGENS  code.  The  user  becomes  more  familiar  with  the 
system  as  time  progresses  and  subsequently  becomes  expert  in  the  final  structure  of  the 
closed  loop  design.   A  description  of  the  major  routines  of  EIGENS  follows. 
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B.       PROGRAM  DESCRIPTION 

As  alluded  to  in  previous  section,  there  are  two  basic  feedback,  gain  solution 
procedures  coded  in  the  program.  The  Moore- Matrix/ Moore-Algebraic  solutions  are 
limited  to  real  systems  where  the  number  of  outputs  are  greater  than  the  number  of 
inputs  (/>  m).  The  Kautsky  solution  entails  the  theory  presented  in  Chapter  III  and  is 
only  limited  by  the  tenth  order  requirement.  Therefore,  during  the  course  of  the 
subsequent  discussion,  when  reference  is  made  to  the  Moore  solution,  it  will  be  brief. 

A  note  with  regard  to  the  Moore  solutions  must  be  made.  For  the  solutions. 
EIGENS  requires  the  desired  closed  loop  right  eigenvectors  to  be  input  in  the  following 
form. 

v.  =  Cx.  (eqn  5.1) 

where  C  is  the  output  matrix  and  x.   is  the  desired  closed  loop  right  eigenvector. 

(Presently  v.  must  be  input  irrespective  of  using  the  Moore  or  Kautsky  solutions). 

Upon  completion  of  the  Moore  routines,  the  subsequent  closed  loop  eigenvectors  are 

then  checked  for  linear  independence.    If  the  vectors  are  not  independent,  the  user  is 

queried  as  to  new  values  of  v.  in  equation  5.1   for  reentry  into  the  Moore  routines. 

Upon  converging  on  an  independent  set  of  right  eigenvectors,  feedback  gains.  F.  are 

then  computed.   The  reader  is  referred  to  [Ref.  10]  for  the  details  of  this  procedure. 

The  EIGENS   Fortran  listing  is  shown  as  Appendix  C.    Figure  5.1  depicts  the 

general  flowchart  for  the  EIGENS  code  and  the  reader  is  referred  to  Appendix  C  for 

detailed  analysis.    In  the  discussion  which  follows,  only  the  main  program  and  those 

subroutines  which  perform  the  feedback  gain  computations  are  described.    Auxiliary 

subroutines     which     perform     such     computations     as     complex     singular     value 

decomposition  (CSVD).  complex  matrix  multiplication  (CMAMTL).  etc..  will  not  be 

discussed  in  detail.    These  auxiliary  programs  are  masked  to  the  user  and  are  only 

required   for  the   execution   of  EIGENS.    A   description   of  the  flowchart   blocks   is 

discussed  below.    Notation  for  the  number  of  states,  inputs,  and  outputs  is  N.  M.  and 

L  respectively. 

1.  Upon  completion  of  initializations,  the  data  is  read  from  File  01  as  follows. 
(The  format  statement  numbers  are  designated  bv  'xx'  for  ease  of  description 
and  the  read  format  is  shown  adjacent  to  each  read  statement  statement). 

READ(l.xx)TITLE  (20A4)  - 
READ(l.xx)N, M.L.I  FEED  (412) 
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IFEED  =   1  (State  Feedback) 
IFEED  =  2  (Output  Feedback) 
IFEED  =  3  (Output  Feedback  w  Feedfwd) 
READ(l,xx)((A(U),J  =  l,N),I=  l.N)  (6F12.5) 
READ(l.xx)((B(I.J).J  =  l.M).I=  l.N)  (6F12.5) 
READ(l.xx.)((C(I.Ji.J=  l.N).I  =  l.L)  (6F12.5) 
If  IFEED  =   1  or  2  SKIP  TO  READ  EIGD 
READ(l,xx)((D(I,J),J  =  l,M)!I=l,L)  (6F12.5) 
READ(l,xx)EIGD(I)   (Desired  C-Loop  \)  (2F12.5) 
READ(l,xx)E(J,I)    (Desired  Cxj)  (2F12.5) 
READ(l.xx)VD(J,I)   (Desired  x.)  (2F12.5) 
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2.  The  data  is  then  displayed  to  the  user  for  input  verification. 

3.  After  computing  the  open  loop  eigenvalues,  the  controllability  of  each  /..  is  then 
computed  and  "displayed  bv  a  controllability  flag.  If  the  controllability  flag 
equals  one.  then  the  onen  loop  eigenvalue  can  be  "shifted  via  state  feedback.  IT 
the  flag  equals  zero,  then  the  open  loop  eigenvalue  is  invariant  under  state 
feedback.    In  this  case  the  eigenvalue  cannot  be  shifted. 

4.  Subsequent  to  the  controllability  computations,  the,  user  is  then  allowed  to 
change  the  desired  closed  loop  eigenstructure  onlv  if  the  Moore  solutions  are 
going  to  be  invoked.  The  user  must  change  Fife  01  to  input  a  new  desired 
closeci  loop  eigenstructure  if  the  Kaustky  solution  is  to  be  used. 

5.  Select  feedback  gain  solutions  (Moore  or  Kautsky). 

6.  Display  results. 

As  the  Kautsky  solution  was  used  for  the  results  presented  here,  this  subroutine 
will  be  discussed  in  detail.  As  a  final  discussion  of  the  Moore  solutions,  note  that  in 
Figure  5.1  these  solutions  are  complete  when  the  resulting  right  eigenvectors  are 
linearly  independent.  The  resulting  feedback  gains  are  then  computed,  the  user  is 
queried  as  to  the  necessity  of  a  singular  value  analysis  of  the  return  difference  matrix, 
and  the  final  design  results  are  displayed.  Let  us  now  turn  to  the  Kautsky  solution 
which  is  coded  within  the  KVECT  subroutine. 

C.       SUBROUTINE  KVECT 

Figure  5.2  depicts  the  flowchart  for  KVECT.  Subsequent  to  initializations,  the 
SVD  of  B  is  performed  and  the  necessary  block  matrices  are  computed.  The 
subroutine  then  performs  'n'  Problem  I  minimizations  to  construct  the  allowable  right 
eigenvector  set  nearest  to  the  desired  modal  set.  The  user  then  has  the  option  of 
minimizing  cr    ( I    +    FG)  (Problem  II  minimization)  for  the  full  state  feedback  case 
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only.  If  output  feedback  synthesis  is  required  (IFEED  =  2  or  3)  and  the  rank,  of  C  is 
less  than  'n\  KVECT  then  calls  FEEDEF  for  further  computations.  Upon  completion 
of  feedback  gain  computations,  the  code  returns  to  the  main  program  for  display  of 
results  and  any  further  processing  the  user  might  desire. 

D.       SUBROUTINE  FEEDEF 

Figure  5.3  depicts  the  flow  for  the  FEEDEF  subroutine.  Note  that  the  user  has 
access  to  the  Problem  II  minimization  process  via  designation  of  the  scalar  weightings 
Wf  and  W/.  Upon  completion  of  the  minimization  and  feedback  gam  calculations,  the 
program  returns  to  KVECT. 
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Figure  5.1     EIGENS  General  Flowchart. 
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COMPUTE  SVD  orB 


i  =    1 


Yes  }— H  i  =  n  —   1? 


(tfo)         |  i  =  i  -    1  I- 

T  i    t 

\ 

No 


CHOOSE  ARBITRARY  ELEMENTS  OF  X, 


OBJ  =  ||  en  ||2 


CALL  ADS  (PROBLEM  I  MINIMIZATION) 


I  FEED  =   1.2.  or  3? 


f 


COMPUTE  F  I  CALL  FEEDEF 


i 


DESIRE  MIN  OF  <Tm(RDM)?|— .'  No)— JRTN  TO  MAIN 


CALL  ADS  (PROBLEM  II  MINIMIZATION) 


Figure  5.2     Subroutine  KVECT. 
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INITIALIZATION 


COMPUTE  AND  DISPLAY 


T 

COMPITE  F 

CALL  ADS  FOR  PROBLEM  II  MINIMIZATION 


RETURN  TO  KVECT 


Figure  5.3     Subroutine  FEEDEF. 
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VI.  MIMO  CONTROLLER  DESIGN  DEMONSTRATIONS 

A.       A  ROBUST  DECOUPLING  STATE  FEEDBACK  CONTROLLER 

The  lateral  dynamics  of  the  CH-47  helicopter  [Ref.  36]  have  the  following  state 
variable  representation. 

x  =  Ax  +  Bu  (eqn  6.1) 


y  =  Cx  (eqn  6.2) 

where  the  state  vector  is  defined  as, 

T 

x  =  (v   p   r   <p)  {eqn  6.3) 

and  the  units  of  the  vector  elements  are, 

Xj  =  v  =  y  velocity  (ft,  sec) 

x->  =  p  =  roll  rate  (rad  sec) 

x-  =  r  =  yaw  rate  (rad'sec) 

X4  =  <p  =  bank  angle  (rad) 

The  system  matrices  are  shown  in  Table  2. 

Lateral  stability  augmentation  (LSA)  to  a  roll  command  input,  5,  is  accomplished 
via  state  feedback  with  feedforward  as  follows, 

u  =  Fx  +■  GjS  (eqn  6.4) 

where, 

u  =   (pr   p   }T  (eqn  6.5) 
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TABLE  2 

CH-4" 

LATERAL  DYNAMICS  MODEL 

A 

B 

c 

_2  ^~ 
0.01 
0.(  - 
O.C 

-1.42 
.0.70 
-0.05 

1.00 

-0.15 
-0.07 
-0.05 

0.11 

31.99                0.12     0.95 

00.00                0.04    -8.37 

0.34    o    : 

00.00                0.00     0.00 

1 

0 
0 

(J 

0  0 

1  0 
0    I 
0    0 

—ooo 

and. 

pr  =  yaw  rate  rotor  deflection  control 

pn  =  roll  rate  rotor  deflection  control 
P 

G^  is  the  fourth  column  of  the   state  feedback  matrix.  F. 


G,  =   [F(l,4)    F  2.4)}T 


(eqn  6.6) 


In  that  feedforward  control  has  no  influence  on  the  resulting  closed  loop 
eigenvalues,  there  exist  several  alternatives  with  regard  to  choosing  an  acceptable  form 
for  G9.  As  the  system  zeroes  are  invariant  under  state  feedback,  an  acceptable  form 
might  be  one  which  allows  flexibility  in  invoking  specific  dynamic  and  static  error 
responses  to  the  system  [Ref.  37].  No  modification  to  G2  was  performed  for  this 
example. 

The  design  requirements  for  the  state  feedback  controller  are: 

a.  Improve    the    performance    and    robustness    of  the    system   with    respect    to 
uncertainties  at  the  plant  input  and. 

b.  Shift  the  open  loop  eigenvalues  from. 


A0L  =  diag{-2.098   -1.079  0.207  -0.050} 


(eqn  6.7) 


to  the  following  closed  loop  eigenvalues, 


ACL  =  diag{-25.120   -12.510   -9.652   -2.125} 


(eqn  6.8) 
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Improvement    of  the    performance    and    robustness    can    be    based    on    several 

measures  [Ref.  38].    For  the  purpose  of  this  example,  increasing  the  minimum  singular 

value  of  the  return  difference  matrix.  (7„{T™  +  FG(ico))for  co  ^  50.0  radians  was  used 

m^  m  J    ■ ' 

as  a  robustness  criterion.  G  is  the  transfer  function  matrix  between  the  input  u  and 
output  y,  Qjcol  -  A)  8.  In  the  discussions  below,  the  term  MIMO  robustness  is 
synonymous  with  the  ffmUm  +  FG)  defined  above. 

Sandell  (Ref.  36]  et.  al.  presented  three  different  feedback  gain  solutions  which 
successfully  invoked  the  A^  above.  Two  of  the  three  lacked  MIMO  robustness  since 
<7  of  the  return  difference  matrix  had  values  of  as  low  as  0.3.  This  is  a  prime  example 
of  the  non  uniqueness  of  solutions  for  F  when  implementing  a  pole  placement 
algorithm  for  MIMO  systems.  In  other  words,  a  particular  set  of  feedback  gains.  F. 
will  invoke  a  specific  robustness  measure  while  simultaneously  shifting  the  eigenvalues. 
Gordon  [Ref.  S]  exploited  this  non  uniqueness  using  numerical  optimization  techniques 
and  designed  robust  feedback  controllers  which  simultaneously  shifted  the  eigenvalues 
and  set  ^m(Im  +  FG)  greater  than  or  equal  to  0.6.  Another  way  of  improving  the 
robustness  of  the  system  is  by  designing  an  optimal  LQG  controller.  In  this  way  the 
degrees  of  freedom  beyond  pole  placement  take  the  form  of  an  optimal  control 
solutions.  Chow  [Ref.  9]  designed  such  an  optimal  state  feedback  controller  while 
simultaneously  shifting  Aqt   to  &r\  ■ 

The  eigenstructures  of  these  designs  designated  as  Son- Robust .  Gordon,  and. 
Chow,  are  depicted  in  Table  3  in  orders  of  increasing  robustness.  Examination  of  the 
eigenstructures  reveal  an  increased  modal  decoupling  oi~  yaw  rate  as  the  robustness 
improves.  It  is  this  observation  which  prompted  the  use  of  eigenstructure  assignment 
to  compute  a  feedback  solution.    By  using  the  following  desired  eigenstructure. 


X 

X 

X 

X 

X 

X 

X 

X 

X  = 

0 

0 

0 

X 

X 

X 

X 

0 

A  =  diag{-25.120  -12.510  -9.652   -2.125] 

where  x  is  an  arbitrary  design  variable,  and  0  is  a  specified  value  for  the  decoupling: 
and  by  executing  the  State  Feedback  Controller  Synthesis  procedure  of  the  EIGENS 
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code,  the  feedback  solution  denoted  as  EIGENS  in  Table  3  was  obtained.  Note  the 
decoupling  of  the  yaw  rate  elements  and  the  resulting  Apr.  Figure  6.1  depicts  the 
resulting  minimum  singular  value  plots  of  the  four  designs.  Note  that  robustness  and 
eigenvalue  placement  was  achieved  simultaneously  in  a  rather  straightforward  manner 
usins  eisenstructure  assignment. 


TABLE  3 

CH-47 

DECOUPLING  STATE  FEEDBACK  DESIGNS 

Feedl 

Design 
tack  Gains 

Eigenstructure 

Non-Robust  Design 

-24.  SO 

-11.42 

-10.30 

-2.1 

1.7 

-0.024 

23.5 

2.71 

-70.6 
-0.37 

-595.             -0.416 

7.99             0.117 

-1.000 

0.000 

Gordon  Design 

0.641 
0.401 
1.000 

-0.045 

0.701 
0.404 
1.000 

-0.050 

1.000 
-0.008 

-0.019 
0.005 

-24.90 

-11.90 

-10.70 

-2.34 

14.2 
0.05 

-3.6 
2.6 

-78.0 
-0.2 

61.0            -0.415 

15.6            -0.122 

-1.000 

0.009 

EIGENS  Design 

0.233 

1.000 
-0.124 
-0.0S3    • 

-0.338 

-1.000 

-0.095 

0.093 

-1.000 

0.031 

-0.205 

-(3.004 

-25.12 

-12.50 

-10.50 

-2.12 

-S.37 
-1.79 

-2.57 
4.05 

-34.64 
-5.10 

.^9  94             0.002 

28.01           -1.000 

-0.004 

0.040 

Chow  Design 

-n.254 

-1.000 

0.012 

O.OSO 

-0.364 

-1.000 

0.0S5 

0.095 

- 1  000 

-0.043 

0.335 

0.003 

- 

-25.30 

-11.62 

-10.40 

-2.10 

-0.65 
-0.022 

-0.36 
4.14 

-34.64 
4.64 

-6.60             0.003 

30.64          -1.000 

-0.002 

0.040 

-0.290 

-1.000 

0.042 

0.0S5 

0.409 

1.000 

■0.007 

-O.096 

-1.000 
0.008 
0.020 

-0.005 
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B.  A  QUASI-OPTIMAL  STATE  FEEDBACK  DECOUPLING  CONTROLLER 

As  noted  previously.  Chow  [Ref.  9]  successfully  coded  an  algorithm  which  will 
obtain  an  optimal  state  feedback  LQG  control  solution  which  invokes  a  desired  A^. 
Table  4  depicts  the  eigenstructure  of  one  of  his  solutions  for  the  CH-47  lateral  stability 
controller.  Note  however  that  the  yaw  rate  element  associated  with  the  fast  eigenvalue. 
Xi  =  -2.125.  exhibits  some  coupling.  By  inserting  a  numerical  zero  in  place  of  the 
eigenvector  elemental  value  of  0.1737  for  x_i.  and  retaining  the  rest  of  the 
eigenstructure  as  inputs  to  the  EIGENS  algorithm,  the  Yaw  Decoupled  design 
structure  was  obtained.  The  resulting  minimum  singular  value  of  the  return  difference 
matrix  (I  +•  FG)  for  this  design,  however,  decreased  to  approximately  0.72.  At  this 
point,  one  has  an  acceptable  decoupling  design  but  it  is  not  optimal,  since  G"m(im  + 
FG)  is  less  than  1.0.  Using  the  yaw  decoupled  eigenstructure  as  inputs  to  the  Robust 
State  Feedback  Controller  Synthesis  procedure  of  the  EIGENS  code,  a  minimization  of 
equation  4.17  resulted  in  a  value  of  a  of  0.905.  As  a  is  nearly  one  for  this  solution,  the 
feedback  gains  are  termed  Quasi-Optimal  and  the  resulting  eigenstructure  is  shown  in 
Table  4.  Note  the  yaw  rate  decoupling  throughout  the  eigenvector  matrix.  Figure  6.2 
shows  the  progression  of  the  minimum  singular  value  for  each  of  these  designs  and 
clearly  notes  the  increased  robustness  of  the  Quasi-Optimal  solution  over  the  Yaw 
Decoupled  solution.  Figure  6.3  depicts  the  resulting  transient  response  to  a  2.0  sec  0.1 
radian  roll  pulse  command  for  the  Quasi-Optimal  Yaw  decoupled  system.  Note  the 
essentially  zero  (10    rad  sec)  yaw  rate  response. 

C.  A  ROBUST  OUTPUT  FEEDBACK  CONTROLLER 

The  state  variable  lateral  dynamics  model  of  the  L-1011   transport  augmented 
with  rudder  and  aileron  dynamics  is  shown  below  [Ref.  24]. 

x  =  Aauax  +  Bu  (eqn  6.9) 


y  =  Cx  (eqn  6.10) 


where  the  augmented  state  vector  is  defined  as, 

Xj  =  pr  ,  rudder  deflection  (deg) 

x2  ~  Pa  '  a^eron  deflection  (deg) 
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TABLE  4 

CH-47 

OPTIMAL  STATE  FEEDBACK  DESIGNS 

Des 

ign 

Eigenstructure 

-25.120 

-12.509 

-9.651 

-2.125 

Chow  LQG 

-0.0033 
0.9992 
0.0001 

-0.0398 

-0.2493 

-0.9654 

-0.0022 

0.0772 

-0.4650 

-0.S796 

-0.0405 

0.0916 

-0.9S47 

-0.0179 

0.1737 

-0.O006 

-25.124 

-12.510 

-8.094 

-2.153 

Yaw 

Decoupled 

-0.0033 

0.9992 

0.0001 

-0.0398 

0.2493  " 
0.9654 
0.0022 
-0.0772 

0.6103 

0.7S62 

-0.0023 

-0.0971 

-1.0000 

0.00S2 
-0.0004 
-0.0038 

-24.661 

-12.511 

-S.7S0 

-2.220 

Quasi-Optimal 
"\  aw  Decoupled 

-0.0018 

0.9992 

-0.0043 

-0.0405 

-0.2492 

-0.9654 

-0.0022 

0.0772 

-0.5326 

-0.8409 

0.0046 

0.0957 

1.0000 

-0.0041 

0.0002 

0.00  is 

x-j  =  (p  .  bank  angle  (deg) 

x4  =    r  •  >'aw  rate  (deg, sec) 
Xr  =  p  .  roll  rate  (deg,  sec) 
x^  =  P  ,  sideslip  angle  (deg) 

x7  =  ^vvo  '  wash°ut  f^ter  state 
The  input  vector.u  .is  composed  of  the  rudder  and  aileron  commands.  pc  and  pr  . 

u    =   !pc   pa}T  (eqn  6.11) 

The  system  matrices  are  shown  in  Table  5. 

Sobel  and  Shapiro  [Ref.  24]  applied  the  classical  results  of  Moore  [Ref.  10]  to  the 
design  of  a  lateral  stability  augmentation  system  (LSAS)  for  the  L-1011  aircraft.  The 
following  design  requirements  set  forth  in  [Ref.  24]  were  used. 
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TABLE  5 

L-1011  LATERAL  DYNAMICS  MODEL 

A 

-20.00 

0.00 

0.00 

-0.744 

0.337 

0.020 

0.00 

0.00 
-25.00 

o.oo 

-0.032 

-1.120 

0.00 

0.00 

20.00 
0.00 

0.00 
0.00 
0.00 

0.00 

O.oo 
0.03  S6 

o.oo 

B 

0.00 
25.00 

0.00 
O.oo 
0.00 

-0.154 
0.249 

-0.996 
0.500 

0.00 
0.00 

1.00 

-.0042 
-1.00 

-.0003 
0.00 

0.00 

0.00 

o.oo 

1.54 
-  5.20 

-0:117 

0.00 

0.00 
0.00 

0.00 

0.00 
0.00 

-0.500 

04x: 

C 

• 

0.0 
0.0 
0.0 

0.0 

0.0 
0.0 
0.0 
0.0 

0.0 
0.0 
0.0 
1.0 

1.0 

0.0 

0.0 
0.0 

0.0 
1.0 
0.0 
0.0 

0.0 
0.0 
1.0 
1.0 

-1.0 

0.0 

0.0 

0.0 

a.  Shift  the  open  loop  roll  and  dutch  roll  eigenvalues  to  -1.5   ±    1.5j  and  -2.0  ± 
l.Oj  respectively,  and. 

b.  Decouple  roll  rate  and  bank  ansle  from  the  dutch  roll  vectors  and  decouple  yaw 
rate  and  sideslip  angle  from  the"roll  vectors. 

This  design  problem  was  executed  via  the  Output  Feedback  Synthesis  procedure 
of  the  EIGENS  code  subsequent  to  a  model  reduction.  Since  the  first  order  actuator 
eigenvalues  were  an  order  of  magnitude  greater  than  the  aircraft  and  washout  filter 
poles,  the  faster  actuators  were  ignored  during  the  design  synthesis.  Lpon  computing 
the  feedback  gains,  the  slow  system  was  then  augmented  to  include  the  faster  actuator 
dynamics  prior  to  transient  response  analysis.  This  technique  of  eigenspace  separation 
becomes  a  computational  necessity  when  synthesisizing  controllers  for  high  order 
augmented  linear  systems.  An  augmented  linear  dynamic  model  of  the  F/A-18  tactical 
aircraft  for  example  [Ref.  39]  consists  of  fifty-five  state  variables. 

Upon  reducing  the  model  to  live  states,  the  following  desired  eigenstructure  was 
input  to  the  EIGENS  code. 
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h,2 

X3,4 

^5 

±1.  5j 

-2. 

Oil.  Oj 

-0.  6 

xl,2 

x3,4 

x5 

0 

X 

0 

X 
X 

X 

0 

X 

0 

0 

X 
X 
X 
X 
X 

where  x  again  denotes  an  arbitrary  design  variable.  The  resulting  feedback  gams  and 
eigenstructures  are  compared  with  those  of  Sobel  and  Shapiro  in  Table  6.  The  closed 
loop  responses  to  an  initial  sideslip  angle  of  {3  =  1.0  degree  are  shown  in  Figure  6.4. 
Figure  6.5  depicts  the  response  using  the  EIGENS  generated  gains.  Figure  6.6 
compares  the  minimum  singular  value  plots  of  the  two  designs.  The  designs  have 
nearly  identical  robustness  properties. 

This  concludes  the  discussions  with  regard  to  designing  robust  MI  MO 
controllers.  The  design  technique  has  been  shown  to  provide  flexibility  towards 
improving  an  existing  robust  or  optimal  design.  It  also  allows  the  designer  to  exercise 
control  over  the  modal  content  of  the  resulting  system  within  the  subspace  constraints 
noted  in  Chapter  III.  It  is  this  modal  control  which  provided  the  motivation  to 
investigate  the  application  of  eigenstructure  assignment  to  reconfigure  damaged  aircraft 
control  systems.  Damage  to  aircraft  control  surfaces,  wing,  body  profiles,  or  to  control 
actuators  in  effect  change  the  resulting  closed  loop  modal  eigenstructure.  If  one  were 
able  to  regain  the  undamaged  modal  structure,  then  one  has  reconfigured  the  aircraft 
control  system.    Let  us  now  turn  to  a  discussion  of  such  a  concept. 


67 


TABLE  6 

L-1011  OUTPUT  FEEDBACK  DESIGNS 

Sobel  &  Shapiro  Results 

Feedback  Gains 

h 

-3.35       0.159        4.SS 
-1.42       -2.3S         6.36 

0.379 
-3.8 

-17.05 

-22.01 

-1.502  ±1.497j 

-2.001  ±.9995 

-0.6989 

Natural  Freq 

Damping  Ratio 

2.12 

2.33 

EIGEXS  Results 

0.708 
0.8946 

Feedback  Gains 

*i 

-3.88       0.107        6.12 
-1.29        -2.64         6.51 

0.183 

-4.44 

-16.50 

-21.7 

-1.79  ±1.55i 

-2.15  ±  1.02 

-0.698 

Natural  Freq 

Damping  Ratio 

2.368 
2.3S0 

0.756 
0.9035 
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Figure  6.1     <7    •  (I  +  FG)  for  CH-47  Decoupled  Designs. 
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Figure  6.2     <7    ■   (I  +  FG)  for  CH-47  Optimal  Designs. 
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Figure  6.3     CH-47  Lateral  Response  for  Optimal  Designs. 
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SOBEL/SHAPIRO 
CLOSED  LOOP  RESPOiNSE  TO  1.0  DEG  INIT  8 


Figure  6.4     L-1011  Response  to  p(0)  =   1.0  deg:Sobel. 
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Figure  6.5     L-1011  Response  to  (3(0)  =   1.0  deg:EIGENS. 
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VII.  EXPLOITATION  OF  EIGENSTRUCTURE  ASSIGNMENT  TO  SELF 
RECONFIGURING  AIRCRAFT  MEMO  CONTROLLERS:  A  NEW 

APPROACH 

A.       PROBLEM  STATEMENT 

Prior  to  defining  the  objectives  of  a  self  -  reconfiguring  MIMO  controller,  one 
must  clearly  state  the  types  of  system  changes  and  or  deficiencies  which  might  require 
the  flexibility  of  such  a  device.  In  this  thesis,  the  design  requirement  of  the  aircraft 
under  analysis  was  assumed  to  be  the  undamaged  or  design  dominant  eigenstructure  for  a 
specific  airspeed,  altitude  and  mission  configuration.  A  system  change  or  deficiency 
might  include: 

a.  Asymmetric  or  symmetric  degradation  of  control  surface  effectiveness. 

b.  Asymmetric  or  symmetric  control  surface  loss, 

c.  Single  or  multiple  actuator  degradation  or  failure, 

d.  Single  or  multiple  sensor  degradation  or  failure,  or 

e.  Any   aircraft   damage    which   significantly   changes    the   stability   derivatives    and 
therefore  the  modal  response  of  the  aircraft. 

The  design  objective  of  a  self  -  reconfiguring  MIMO  controller  as  interpreted  in 

this  thesis  is  therefore  to  regain  the  undamaged  modal  structure  subsequent  to  such 

system  deficiencies  via  a  new  or  reconfigured  set  of  feedback  gains.    The  objective  is 

not   a   systems   approach   to   reconfiguration  but   rather  a   tailored  algorithm  which 

extends  the  application  of  eigenstructure  assignment.   The  reader  is  referred  to  [Ref  40] 

as  an  example  o[  what  is  termed  a  systems  approach  to  the  reconfiguration  problem. 

A  mathematical  definition  of  such  a  controller  might  be  stated  in  the  following  way. 

Problem  Statement 
Does  there  exist,  and  if  so,  what  are  the  new  set  of  feedback  gains  required  to  regain 
the  desired  dominant  eigenstructure  subsequent  to  a  system  deficiency!, 

In  terms  of  the  overall  flight  control  system,  there  are  additional  assumptions 
beside  the  existence  of  a  solution  which  are  implicit  in  this  problem  statement.  The 
three  most  recognizable  are: 

a.  The  deficiency,  or  damage,  is  assumed  to  be  detectable  in  a  time  scale  much  faster 
than  the  response  time  of  the  aircraft. 

b.  Sufficient  moment  and  force  authority  exist  in  the  remaining  undamaged  control 
surfaces  to  overcome  the  deficiencies  and, 
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c.      Appropriate  feedback    loops    exist   between    the   sensed  motion    variable   and  all 
available  control  surfaces. 

Note  that  the  objective  of  the  reconfigured  controller  in  this  thesis  is  to  regain 

the  undamaged  modal  response  with  the  assumption  that  the  system  deficiency  has 

been  detected.   This  is  not  to  say  however  that  the  technique  described  below  cannot  be 

applied  to  the  detection  process.    The  concept  may  be  equally  applied  to  detection  or 

observer  design. 

B.       ALGEBRAIC  SOLUTION 

An  algebraic  solution  to  the  problem  used  in  this  thesis  is  presented  as  follows. 
It  was  shown  previously  that  for  the  output  feedback  case,  the  set  of  unique  feedback 
gains,  F.  which  invoke  m  x  I  elements  of  a  desired  right  eigenvector  matrix,  A\  and 
max(m,l)  elements  of  the  eigenvalue  matrix,  A,  in  the  least  square  sense,  are  defined  by. 

F  "  V^'bo7^^"1  -  A>Zc"lucoT  ^n  ™) 

where  each  right  and  left  eigenvector  must  be  members  of  null  spaces  defined  by  their 
respective  closed  loop  eigenvalues,  h, 

Xj  e  WblT(A  -  X.jln)]  (eqn7.2) 


t.  s  ^{UctlT(AT  -  X  fa))  (eqn7.3) 

In  order  to  facilitate  the  analysis,  let  us  rewrite  equation  7.1  by  substituting  B 
for  Zb"lubor  and  Cz  for  Zc"lucoT 

F  =  BZ(XAX_1  -  A)CZ  (eqn  7.4) 

In  equation  7.4  let  us  define  the  undamaged  dominant  modal  structure,   or  design 
requirement  noted  above,  by  designating  the  matrix  M,  where, 


M  =  XAX-1  =  BFC  +  A  (eqn  7.5) 
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as  the  modal  matrix.  Note  that  system  deficiencies  or  damage  as  defined  previously, 
would  result  in  either  collective  or  distributional  changes  to  the  matrix  triple  (A.B.C). 
A  large  change  in  the  control  matrix  B  for  example,  would  occur  if  a  particular  control 
surface  was  rendered  ineffective  by  combat  damage.  Such  a  change  might  invoke 
zeroes  in  B  and  perhaps  even  cause  rank  degeneracy  in  the  control  matrix.  Let  us 
denote  such  changes  as  5A.  6B.  and  5C.  Further,  if  the  feedback  gains  in  7.4  were  held 
constant,  then  the  modal  matrix.  /V/,  would  likewise  undergo  changes,  §\I.  since  if  the 
feedback  gains  were  to  be  held  constant  in  7.4,  the  following  equality  would  arise. 

F  =  (Bz  4-  5BZ){M  +  5M  -  (A  +  8A)j  (Cz  +  5CZ)         (eqn  7.6) 

Again,  cases  may  arise  where  5\I  could  represent  benign  responses  such  as  decreased 
pitch  response  due  to  symmetrical  elevator  degradation  or  severe  changes  such  as  an 
undesired  roll  and  yaw  response  from  pitch  commands  due  to  asymmetric  elevator 
degradation.  In  order  to  maintain  the  integrity  o[  the  dominant  modes  of  the  modal 
matrix,  M,  constant  in  7.6.  and  thereby  regain  the  undamaged  modal  response,  one 
could  allow  the  feedback  gains  F  to  undergo  a  perturbation  §F.  to  lessen  the 
magnitude  of  5M.  The  flexibility  of  eigenstructure  assignment  and  its  suitability  for 
solution  by  numerical  optimization  techniques  allow  one  to  perform  such  a  calculation. 
For  example,  if  one  required  the  closed  loop  eigenvalues.  A.  to  remain  constant,  one 
would  allow  the  closed  loop  eigenvector  matrix.  X.  to  assume  the  role  of  design 
variables  in  an  optimization  routine  to  satisfy  equation  7.2.  By  converging  to  such  a 
solution  and  designating  the  subsequent  changes  to  the  modal  matrix  M  as  5m,  where 
6m  represents  minor  changes  to  the  dominant  modes,  one  has. 

F  +  5F  =  (Bz  +  6BZ){M  +  5m  -  (A  +  5A)}(CZ  +  5CZ)  (eqn  7.7) 

with  the  additional  constraints  that  the  right  and  left  eigenvectors  must  now  be 
members  of  the  following  perturbed  null  spaces, 

X;  g  Se{(Vb{  +  5Ubi)T(A  +  5A  -  Un)}  (eqn  7.S) 


tj  G  ^{(UctJ   +  5Uctl)T(AT  +  5AT  -  Un)}  (eqn  7.9) 
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Note  that  in  equations  7.S  and  7.9.  the  changed  open  loop  parameters  are  A  +  6A,  B 
+■  6B.  and  C  +  5C  and  as  such  remain  constant.  If  one  desires  a  specified  closed  loop 
eigenvalue  matrix.  A.  then  one  must  allow  the  eigenvectors  x-  and  v  to  rotate  until 
equations  7.S  and  7.9  are  satisfied.  If  such  a  solution  exists,  then  one  has  reconfigured 
the  system  to  regain  a  response  close  to  the  undamaged  response.  Note  additionally 
that  one  may  apply  the  concept  of  eigenvalue  shifting  described  in  Chapter  VI.  Section 
B.4.  to  satisfy  the  null  space  requirements  of  equation  7.S  and  7.9.  Equations  7.7.  7.S, 
and  7.9  are  the  key  relations  used  in  the  reconfiguration  algorithm  presented  in  this 
thesis. 

C.       RECONFIGURATION  ALGORITHM 

The  reconfiguration  algorithm  presented  in  this  thesis  which  codes  the  key 
relations  noted  above  can  facilitate  analysis  of  a  fifty  -  five  state  variable  model  with 
up  to  ten  inputs  and  eighteen  inputs.  It  is  composed  of  three  sequentially 
interdependent  Fortran  algorithms  (RECONF.  ERSPACE,  ELSPACE)  which  execute 
the  reconfiguration  constraints  noted  in  equations  7.7  through  7.9  It  is  assumed  that 
the  user  has  independently  computed  a  set  of  feedback  gains  for  a  particular  system 
which  invoke  a  satisfactory  eigenstructure.  The  reconfiguration  algorithm  initializes 
the  design  analysis  with  the  user  provided  data  and  computes  the  modal  matrix,  AL  for 
further  use.  The  algorithms  were  coded  for  execution  on  the  Naval  Postgraduate 
School  IBM  -  370  mainframe  via  interactive  access  through  compatible  user  terminals. 
The  reader  is  referred  to  Appendices  D.  E.  and  F  for  the  program  listings.  A 
sequential  description  of  a  typical  reconfiguration  How  is  described  below.  Acronyms 
to  the  left  of  the  program  name  are  designated  as  read  files,  those  to  the  right  are 
designated  write  data  files. 

a.  RECONF  reads  the  undamaged  svstem  matrices  (A.B.C.F)  and  writes  the 
undamaged  modal  eigenstructure  (X.'A). 

RECONF— ->---  -(RECONF)-—  >-— UNDEIG 

b.  RECONF  reads  the  user  provided  damaged  svstem  matrices  (RECOXX)  and 
undamaged  modal  eigenstructure  (UNDEIG)  and  writes  the  appropriate  right 
eigenstructure  data  (ERSPACE)  for  right  null  space  analysis  (7.S).  The  user  has 
control  over  the  order  of  the  design  space  by  designating  the  upper  and  lower 
bounds  of  the  eigenvalues  of  interest.  In  this  way,  the  user  may  svnthesize  the 
entire  eigenspace  by  segmenting  the  whole  space  into  iterative  'segments  of 
design  spaces  or  may  specify  a  reduced  order  design  eigenspace. 

RECOXX  — > —  {RECONF} — > — ERSPACE 

UNDEIG 

c.  ERSPACE  reads  the  right  eigenspace  data  and  calls  the  ADS  program  to 
minimize  a  specific  normed  vector  distance  between  the  undamaged  right 
eigenvector    and    the    perturbed    (damaged)    right    null    space    (7. ST.      Upon 
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convergence,  the  appropriate  left  eigenstructure  data  is  written  (ELSPACE)  for 
left  null  space  analysis  (equation  7.9). 

ERSPACE —  >  —  {ERSPACE} —  >  —-ELSPACE 

ELSPACE  reads  the  eigenstructure  data  and  uses  the  ADS  program  to 
minimize  the  euchdean  "distance  between  the  desired  left  eigenvector  and 
perturbed  (damaged)  left  null  space.  The  user  has  the  option  of  performing  the 
minimization  bv "either  eigenvector  or  eigenvalue  shifting.  After  convergence  is 
obtained  for  each  left  eigenvector,  the  right  null  space  residual  is  also  di^plaved 
to  alert  the  user  of  anv^conilict  with  the  resulting  right  eigenvector  null'  space 
membership.  If  such  a'conflict  arose,  the  code  couid~be  modified  to  rewrite  the 
ERSPACE  data  rile  for  reentrv  into  the  ERSPACE  algorithm.  No  such 
requirement  has  been  noted  for  the  model  under  analvsis  for  the  research 
reported  in  this  thesis.  This  is  due  to  the  fact  that  for  the  FA- ISA  linear 
dvnamic  model  presented  in  Chanter  VIII.  the  dimensions  oi"  E  and  E>  are  45 
and  3  -  respectivelv.  Therefore  di  E  )  >  d(E/).  Upon  completion  of  the  left  null 
space  analvsis.  ELSPACE  writes  the  optimized  eigenstructure  (OPTEIG)  for 
use  by  RECONF  to  calculate  the  reconfigured  gamsT 

ELSPACE-—  >  -—(ELSPACE!-—  > OPTEIG 

RECONF  reads  the  optimized  eigenstructure  and  calculates  the  resulting 
feedback  gains  (FRECON).  reconfigured  eigenstructure  (RECEIG)  and  required 
time  response  data  for  plotting.  {OPTXXX)  for  plotting.  Plotting  is  performed 
by  auxiliary  programs  riot  described  in  this  thesis. 

RECOXX— ->— -RECONF— -> FRECON.  OPTEIG 

RECEIG.  OPTXXX 

A  sample  run  is  presented  in  Appendix  G. 
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VIII.  A  RECONFIGURED  SOLUTION  DEMONSTRATION 

A.  BACKGROUND 

The  F  A- ISA  was  chosen  as  a  demonstration  vehicle  for  the  solution  technique 
posed  in  Chapter  VII  due  to  its  digital  flight  control  system  and  availability  of  control 
surfaces  for  reconfiguration.  A  current  tactical  aircraft  in  the  U.S.  Navy  and  Marine 
Corps  inventor}',  its  primary  flight  control  is  baselined  as  a  control  augmentation  system 
which  is  implemented  via  fly-by-wire  technology  (Ref.  41].  The  discussion  will  continue 
with  a  brief  description  of  the  aircraft  control  system  and  dynamic  model  followed  by 
specific  damage  scenarios  which  were  treated  during  the  research  reported  here. 

B.  F/A-18A  SYSTEM  OVERVIEW 

The  FA- ISA  control  augmentation  svstem  uses  feedback  sain  scheduling,  cross 
axis  paths  such  as  rolling  surface  to  rudder,  and  closed  loop  control  for  acceptable 
flying  quality  and  aircraft  stability.  Flying  quality  guidelines  are  based  on  military 
specification  MIL-F-87S.5B  Level  I  requirements  for  high  maneuverability  aircraft 
[Ref.  41].  Aircraft  stability  margins  are  per  MIL-F-94900  which  require  6  db  of  gain 
margin  for  all  closed  loop  modes.  Control  law  computations  are  performed  via  parallel 
digital  processing  of  angle  of  attack,  normal  acceleration,  and  dynamic  static  air  data 
to  invoke  the  desired  responses  of  various  flight  conditions.  Figure  8.1  is  taken  from 
[Ref.  41]  to  show  the  flight  control  system  from  a  functional  level. 

Figure  8.2  depicts  the  ten  control  surfaces  of  the  aircraft.  In  the  undamaged 
configuration,  longitudinal  control  is  accomplished  via  symmetric  deflection  of  right 
and  left  stabilators  and  leading/trailing  edge  flaps.  Lateral  directional  control  is 
accomplished  via  differential  deflection  of  the  right  and  left  stabilators.  ailerons, 
leading  trailing  edge  flaps,  and  synchronous  rudder  deflections.  Each  flight  control 
surface  is  driven  by  electro-hydraulic  servoactuators  with  known  dynamics.  Rate  gyros 
and  angle  of  attack  sensors  provide  the  sensed  motion  data  which  is  input  to  the  digital 
computers  for  primary  data  processing  during  the  flight  control  mode. 

As  mentioned  previously,  the  primary  inner  loop  control  is  accomplished  via 
three-axis  air  data  and  angle  of  attack  'gain  scheduled  feedback  control.  Control  law 
computations  are  of  two  categories:  Power  Approach  for  take  off  and  landing  and  Auto 
Flap  Up  for  all  other  flight  modes.    Only  the  Auto  Flap  Mode  was  incorporated  in  the 


dvnamic  model  used  during  the  thesis. 
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C.       F/A-18A  LINEARIZED  DYNAMIC  MODEL 

The    linearized    FA- ISA    continuous    state    variable    model    for    fighter    escort 
configuration  is  as  follows. 

x  =  Ax  +  Bu  (eqn  8.1) 


y  =  Cx  +  Du  (eqn  S.2) 

where  the  state  vector  is  composed  of  both  the  longitudinal  and  lateral  aircraft  states, 

x  =   {u  w  q   9   r   p   v  (p}T  (eqn  8.3) 

and  the  state  vector  elements  are. 

u  =  forward  velocity 

w  =  vertical  velocity 

q  =  pitch  rate 

0  =  pitch  attitude 

r  =  yaw  rate 

p  =  roll  rate 

v  =  side  velocity 

(p  =  bank  angle 
The  input  vector  u  is  composed  of  the  following  eight  inputs, 

u  =   (dstx   dlex   dtex   pst    ple   p[e   pa   pr}T  (eqn  8.4) 

where  d  denotes  symmetric  deflections  and  p  denotes  differential  deflections  of  the 
stabilator  (st),  leading  edge  flaps  (le),  trailing  edge  flaps  (te).  ailerons  (a),  and  rudders 
(r).  The  system  matrices  were  computed  from  data  in  [Ref.  -11]  for  a  flight  condition  of 
M  =  0.6  and  an  altitude  of  10.000  feet.    Thev  are  shown  in  Table  7. 
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The  output  vector,  y,  is, 

T 
y  =   (q   nz   aa   r   p   nv}  (eqn  S.5) 

where 

nz  =  normal  acceleration 

aa  =  angle  of  attack. 

nv  =  lateral  acceleration 

D.       F/A-18A  AUGMENTED  LINEARIZED  DYNAMIC  MODEL 

Rojek  [Ref.  39]  modeled  the  F  A- ISA  aircraft  dynamics  augmented  with 
actuator. sensor  and  feedback  filter  dynamics  for  the  Auto  Flap  Up  flight  mode  in 
discrete  form. 

Figures  S.3  and  S.4  depict  the  linearized  longitudinal  and  lateral-directional 
control  law  model  coded  in  [Ref.  39].  In  the  figures,  F  denotes  the  gam  scheduled 
function  values  and  P  denotes  the  presence  of  a  filter.  Constant  gains  are  denoted  by 
numerical  values.  Non-linear  components  of  the  full  order  control  law  model  noted  in 
[Ref.  41]  were  either  ignored  or  linearized  as  follows. 

a.  Non-linear  dynamics  of  the  control  laws  such  as  position  limiters.  rate  limiters. 
dead  band  regions,  and  inertial  couplings  were  ignored. 

b.  Stick  and  rudder  dynamics  were  ignored. 

c.  A  constant  sample  rate  was  assumed  and  therefore  pre-aliasing  filters  were  not 
included  in  the  model.  For  this  thesis,  an  eighty  hertz  sampling  rate  was 
invoked. 

d.  Structural  notch  filters  were  ignored  as  structural  modes  were  not  modeled. 

e.  As  the  model  was  desisned  to  simulate  cruise  flight  conditions,  faders  which 
smooth  out  discontinuities  durins  svstem  start  up  and  other  transitional  phases 
were  ignored. 

The  control  law  model  provides  gain  scheduling  as  noted  in  paragraph  VIII.B. 
Lead-lag  filtering  is  also  provided  to  shape  the  feedback  responses  and  to  ensure 
acceptable  phase  and  gam  margins  within  the  feedback  paths.  [Ref.  39]  presents 
detailed  information  with  regard  to  descretization  of  the  continuous  actuator,  sensor, 
and  control  filter  models  shown  in  [Ref.  41]. 

[Ref.  39]  formulated  the  discrete  F/A-18A  dynamic  model  as  a  fifty-five 
augmented  state  variable  system.  This  particular  state  variable  form  modeled  the 
discrete  pilot  commands  as  the  input  vector.  u(k). 
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TABLE  7 

■ 

F 

A- ISA  SYSTEM  MATRICES  FOR  M  ■■ 

0.6.  ALT 

=   10.000  FT. 

-.0133 

.07127 

0 

A 

-32.17 

0 

0 

0 

0 

-.0"2S 

-1.140 

641.92 

-1.460 

0 

0 

0 

0 

0 

-.0127 

-.9470 

.00050 

0 

0 

0 

0 

0 

0 

1.0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

-.2450 

-646.9 

.02850 

32.1S9 

0 

0 

0 

0 

.00849 

-.2460 

. 1 1 200 

0 

0 

0 

0 

0 

-.0256 

0.7300 

-2.S30 

0 

0 

0 

0 

0 
B 

0 

0 

1.0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

-129.5 

19.430 

-149.0 

0 

0 

0 

0 

0 

-15.60 

-1.609 

1.4990 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

-6.930 

0 

0 

-2.915 

34.909 

0 

0 

0 

-.3960 

0 

-.S350 

-.8960 

-3.260 

0 

0 

0 

11.860 

0 

13.060 

13.140 

4.4 

0 

0 

0 

0 
C 

0 

0 

0 

0 

0 

0 

1.0 

0 

0 

0 

0 

0 

-.072S 

-1.14 

-5.749 

0 

0 

0 

0 

0 

0 

.00154 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1.0 

0 

0 

0 

0 

0 

0 

0 

0 

1.0 

0 

0 

0 

0 

0 
D 

-.2450 

.77720 

.02850 

.015 

0 

0 

0 

0 

0 

0 

0 

0 

-129.5 

19.430 

-149.0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

-6.93 

0 

0 

-2.915 

34.909 

where 


u(k)  =   (px(k)   pv(k)   pz(k)]T  (eqnS.6) 


p  (k)  =  pitch  stick  command 

pv(k)  =  lateral  stick  command 

p  (k)  =  directional  rudder  command 
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Modeling  in  this  way  incorporates  both  the  control  surface  deflection  commands 
and  feedback  filter  states  within  the  plant  matrix,  A.  In  that  the  control  surface 
deflection  commands  are  the  desired  system  inputs,  u,  and  the  discrete  pilot  commands 
are  the  desired  reference  commands.  5(k).  the  dynamic  model  was  assembled  in  a 
different  manner  than  [Ref  39].  Equation  8.6  was  reformulated  as  a  reference 
command  vector.  5(k),  and  the  input  vector.  u(k).  was  reformulated  as  the  ten  discrete 
control  surface  inputs  as  follows. 

T 
u  =   (rst     1st     rie     lie     rte     lte     ra     la   rr   lrj    l  (eqn  8.7) 

where  r  and  /  denote  right  and  left  control  surfaces  and  st,  le,  te,  a.  and  r  denote 
stabilator.  leading  edge  flap,  trailing  edge  flap,  aileron,  and  rudder  deflections 
respectively.  Additionally,  Rojek  provided  longitudinal(LONG)  and  lateral  (LATD) 
gain  matrices  which  modified  the  equations  of  motion  to  accept  individual  control 
surface  deflections  as  systems  inputs.  In  this  way,  coupling  between  the  longitudinal 
aircraft  modes  and  longitudinal  control  surfaces,  and  also  the  lateral  modes  and  control 
surfaces,  are  invoked  via  the  gam  matrix  transformation.  For  symmetric  control 
surface  degradation  where  for  example  both  right  and  left  stabilators  are  degraded  by 
an  equal  amount,  the  aircraft  equations  of  motion  remain  uncoupled  via  the  structure 
of  the  gain  matrices  (LONG. LATD).  If  only  the  right  stabilator  were  degraded 
however,  cross  coupling  of  the  aircraft  modes  would  be  invoked  by  the  gain  matrix 
structures. 

Assembling  the  model  in  this  form  leads  to  a  classical  state  variable 
representation. 

x(k-M)  =  Ax(k)  +  Bu(k)  +  G1(k)6(k)  (eqn  S.S) 


y(k)  =  Cx(k)  (eqn  8.9) 


u(k)  =  Fy(k)  +  Go§(k)  (eqn  8.10) 


where  the  vectors  have  the  following  linear  space  dimensions, 
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The  augmented  output  vector.  y(k).  is  composed  of  the  sensed  motion  variables 
and  the  control  law  filter  states  which  arise  from  their  state  variable  formulation. 

y  =  [q   nz  aa  r  p  nv  |  xdlxl2}T  (eqn  8.12) 

By  examining  equation  S.12  and  equation  8.7  one  observes  the  structure  of  the 
feedback  gam  matrix.  F.  Note  how  this  structure  exposes  the  feedback  loops  in  the 
system  in  a  numerical  fashion.  For  example.  F(l.l)  is  the  static  feedback  gain  between 
the  sensed  pitch  rate.  q.  and  the  right  stabiiator  deflection  command,  rst.  This  physical 
interpretation  of  the  numerical  structure  of  the  system  is  not  evident  in  [Ref.  39]  and 
serves  as  a  revealing  source  of  information  for  reconfiguration  analysis.  Note 
additionally  that  the  gain  matrix.  F.  will  remain  constant  unless  different  flight 
conditions  and  or  regimes  are  assumed.  Additionally,  if  one  models  control  surface 
degradation  via  changes  in  the  B  matrix,  then  these  constant  F  values  will  invoke 
undesired  modal  responses  subsequent  to  pilot  commands  via  5(k).  It  is  the  intent  of 
the  reconfiguration  technique  to  regain  the  undamaged  response  with  the  same  pilot 
command  inputs.  This,  of  course,  necessitates  changing  F  by  some  quantitative 
amount  SF.  This  is  exactly  what  we  desire  to  determine  by  the  solution  technique 
described  in  Chapter  VII.  Let  us  now  turn  to  some  specific  damage  scenarios  for 
solution. 

E.       THE  SYMMETRIC  DEGRADATION  PROBLEM 

Several  types  of  flight  control  surface  deficiencies  or  damage  classes  were 
presented  in  Chapter  VII  ranked  in  orders  of  severity.  The  initial  type  of  damage  class 
considered  in  this  thesis  was  the  symmetric  degradation  of  control  surface  effectiveness. 
Specifically,  two  cases  of  symmetric  degradation  of  the  right  and  left  stabilators  were 
treated  by  the  reconfiguration  technique.  Case  A  decreased  the  control  effectiveness  of 
both  stabilators  by  25° band  Case  B  decreased  the  effectiveness  by  50%.  Since  this 
type  of  longitudinal  symmetric  damage  does  not  invoke  lateral  coupling,  the  perturbed 
eigenstructure  only  involves  the  longitudinal  dynamics.  This  provides  a  suitable  test 
case  for  the  initial  attempt  at  reconfiguration. 

As  is  the  case  in  all  eigenstructure  synthesis  scenarios,  one  must  become  familiar 
with  the  structure  of  the  system  prior  to  any  design  execution.  In  all  of  the  damaged 
cases  examined  for  this  thesis,  the  design  requirement  was  to  regain  the  undamaged 
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longitudinal  response  to  a  1.0  inch,  3.0  sec  pitch  up  stick  command.  Figure  S.5  depicts 
the  undamaged  longitudinal  responses  to  such  an  input.  Table  8  depicts  the  closed 
loop  eigenvalues  of  the  full  order  system.  Note  that  a  slow  eigenspace  exists  for  a  z- 
plane  eigenvalue  of  greater  than  or  equal  to  0.9535.  A  slow  design  eigenspace  was 
.therefore  defined  as  z  >  0.9535  and  reconfiguration  synthesis  for  the  symmetric 
degradation  cases  was  performed  within  this  eighteenth  order  eigenspace.  Table  9 
depicts  the  eigenvectors  of  the  aircraft  eigenspace.  Tables  8  and  9  are  therefore  the 
design  closed  loop  eigenvalues  and  right  eigenvectors  for  this  Case  VI  Output 
Feedback  problem.  In  all  subsequent  tables,  the  aircraft  eigenvectors  are  normalized 
with  respect  to  the  largest  real  magnitude  of  the  aircraft  elements.  Table  10  shows  the 
undamaged  feedback  gain  matrix,  F.  Note  that  the  function  gains  and  filter  transfer 
functions  depicted  in  Figures  8.2  and  S.3  are  transformed  via  the  modeling  technique 
noted  in  paragraph  VII I. D  into  the  elemental  values  of  the  feedback  matrix.  F.  in 
Table  10.  Each  column  represents  the  feedback  gain  values  from  the  sensed  variable  to 
the  respective  control  surface.  For  example  the  static  gain  value  between  pitch  rate.  q. 
and  the  right  stabilator,  rst.  is  0.214. 

Table  11  numerically  depicts  the  euclidean  and  ^c-norms  of  the  right  and  left  null 
vectors.  £  •  and  £/,  of  the  eighteen  slow  modes.  The  residual  sums,  RES  and  RES/,  are 
the  sums  of  the  eighteen  individual  euclidean  norms.  Note  that  RES  is  significantly 
less  than  RES^  and  that  the  primary  modal  contributors  to  RES/  are  the  short  period 
and  phugoid  modes.  It  is  interesting  to  note  that  at  the  outset,  the  bad  actors  with 
respect  to  the  left  null  spaces  are  longitudinal  in  nature. 

Upon  examining  Table  11,  one  would  initially  establish  a  collective  numerical 
threshold  on  the  null  space  membership  criteria  of  0.07483S  and  3.30-46  respectively.  A 
significant  unknown,  however. is  the  magnitude  of  the  conservative  nature  of  the 
euclidean  norm.  A  collective  measure  of  null  space  residuals  may  indeed  be  too  harsh 
a  criterion  on  eigenvector  acceptance.  Additionally,  as  noted  previously,  eigenvector 
orientation  is  a  significant  input  with  regard  to  acceptance 'criteria  when  analyzing  such 
a  high  order  system.  For  example,  a  particular  eigenvector  may  satisfy  a  null  space 
requirement  but  have  undesired  modal  orientation.  An  undesired  orientation  results  in 
responses  which  may  or  may  not  be  acceptable.  The  design  problem  therefore  becomes 
two  fold.  Null  space  constraints  and  proper  orientation  of  the  right  eigenvector  must 
simultaneously  occur  to  ensure  full  performance  recovery.  Performance  recovery  could 
be  accomplished  in  several  ways.    One  procedure  would  be  to  augment  the  current 
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objective  function  to  include  a  performance  recovery  factor.  One  may  define  such  a 
factor  as  a  norm  of  the  difference  between  the  desired  right  eigenvector,  x-,  and  the 
right  eigenvector,. x-  +  Ox-  which  results  subsequent  to  reorienting  the  left  eigenvector. 
In  this  way,  the  augmented  objective  function  becomes. 

OBJaug  -  ||efi||2  +  ||5Xi||2  (eqn8.13) 

By  performing  a  minimization  of  equation  8.13.  one  would  drive  towards  the. 
undamaged  performance,  x-.  and  the  respective  undamaged  eigenvalue  location.  X-. 
Another  procedure  which  would  be  significantly  less  expensive  from  a  computational 
standpoint  would  involve  comparing  the  optimized  right  eigenvector  modes  with  those 
which  are  known  to  give  satisfactory  performance  but  possibly  unsatisfactory 
eigenvalue  placement.  In  other  words,  subsequent  to  minimizing  a  norm  of  the  left 
null  vector,  Zf,  examine  the  reoriented  right  eigenvectors  for  structures  which  impede 
performance  recovery.  For  those  which  impede  recover}',  drive  the  designed  right 
eigenvectors  to  the  proper  orientation.  This  will  possibly  result  in  penalties  with  regard 
to  invoking  an  eigenvalue  location  but  will  enhance  the  system  performance.  In  this 
way,  the  designer  must  trade  between  modal  performance  recovery  (x-)  and  speed  of 
transient  response  (X-).  One  must  therefore  observe  the  vectors  individually  with 
regard  to  both  residual  measurement  and  orientation  before  making  prudent 
judgements  on  the  acceptability  of  the  eigenvector. 
1.  Case  A 

Symmetric  degradation  of  the  stabilators  was  simulated  by  modifying  the 
appropriate  elements  of  the  gain  matrices  to  reflect  a  25%  loss  in  control  effectiveness. 
Figures  8.6  and  8.7  depict  the  damaged  pitch  attitude  and  pitch  rate  responses. 
Although  a  relatively  benign  perturbation  to  the  undamaged  response,  this  case  served 
a  valuable  role  in  software  debug  of  RECONF.  ERSPACE.ELSPACE,  and  in  the 
modifications  to  the  [Ref.  39]  code.  Table  12  depicts  the  damaged  eigenvalues  for  Case 
A.  Table  13  shows  the  resulting  perturbed  aircraft  eigenstructure  for  Case  A.  The 
primary  eigenstructure  perturbation  for  Case  A  is  noted  in  the  slower  phugoid  (X  = 
-0.4123)  and  the  short  period  modes.  For  the  slower  phugoid  mode,  the  eigenvalue 
shifted  to  the  right  by  19.4%  with  no  significant  change  in  the  eigenvector.  The 
perturbed  short  period  mode  became  less  damped  and  more  oscillatory  as  the  real  part 
of  the  eigenvalue  moved  to  the  right  by  16.7%  and  up  the  imaginary  axis  by  9.4%. 
The  cumulative  result  is  a  lag  in  both  the  pitch  attitude  and  pitch  rate  responses. 

93 


TABLE  8 

F  A- ISA  UNDAMAGED  C-LOOP  EIGENVALUES: M  ==  0.6  ALT       10K 

Z- Plane  Roots 

S- Plane 

Roots 

Mode 

1.0000 

0.0000  J 

0.000 

0.000  J 

Filter 

1.0000 

0.0OO0J 

0.000 

0.000  J 

Filter 

1.0000 

0.0000J 

0.003 

0.0  00  J 

Spiral 

Filter 

1.0000 

■     0.0000  J 

0.004 

o.ooo  J 

0.999S 

0.0000  J 

-0.017 

0.000.1 

Phu go  id 

0.9936 

0.0000  J 

-0.511 

0.000  J 

Phugoid 

0.9876 

0.0000J 

-1.000 

0.000  J 

Filter 

0.9S56 

1).  0000  J 

-1.159 

o.ooo  J 

Filter 

0.9S21 

0.0000J 

-1.443 

O.OOOJ 

Filter 

0.9753 

0.0000J 

-2.000 

.  O.OOOJ 

Filter 

0.9753 

0.0000J 

-2.000 

O.OOOJ 

Filter 

0.9753 

O.OOOOJ 

-2.004 

O.OOOJ 

Filter 

0.9643 

0. 0000.1 

-2.904 

O.OOOJ 

Roll 

0.9' 64 

-0.03 19. J 

-1.870 

-2.615J 

Dutch  Roll 

0.9' 64 

0.03 19  J 

-1.870 

2.615.1 

Dutch  Roll 

0.9714 

-0.0328 J 

-2.279 

-2.702  J 

Short  Period 

0.9714 

0.0328.1 

-2.279 

2.702.1 

Short  Period 

0.9535 

O.OOOOJ 

-3.811 

O.OOOJ 

Filter 

0.8413 

O.OOOOJ 

-13.829 

O.OOOJ 

AoA  Sensor 

0.7619 

O.OOOOJ 

-21.757 

O.OOOJ 

Filter 

0.7109 

O.OOOOJ 

-27.292 

O.OOOJ 

LE  Flap  Actuator 

0.7106 

O.OOOOJ 

-27.330 

O.OOOJ 

LE  Flap  Actuator 

0.6988 

-0.2220J 

-24.S21 

-24.6 12J 

TE  Flap  Actuator 

0.69SS 

0.2220J 

-24.821 

24.6 12J 

TE  Flap  Actuator 

0.7660 

0.3195J 

-14.909 

31.616J 

Stab  Actuator 

0.7660 

-0.3 195  J 

-14.909 

-31.616J 

Stab  Actuator 

0.6985 

0.2223J 

-24.S49 

24.651  J 

TE  Flap  Actuator 

0.6985 

-0.2223J 

-24.849 

-24.651.1 

TE  Flap  Actuator 

0.7597 

-0.3 3 44 J 

-14.903 

-33.167J 

Stab  Actuator 

0.7597 

0.3  3  44  J 

-14.903 

33.167J 

Stab  Actuator 

0.4907 

-0.061 3J 

-56.336 

-9.942J 

Ail  Actuator 

0.4907 

0.06 13J 

-56.336 

9.942J 

Ail  Actuator 

0.4120 

O.OOOOJ 

-70.946 

O.OOOJ 

Filter 

0.4267 

0.3  259  J 

-49.749 

52.187J 

Ail  Actuator 

0.4267 

-0.3  259  J 

-49.749 

-52.1S7J 

Ail  Actuator 

0.4191 

-0.3947J 

-44.173 

-60.434J 

Rud  Actuator 

0.4191 

0.3947J 

-44.173 

'  60.434J 

Rud  Actuator 

0.4181 

-O.3950J 

-44.250 

-60.555J 

Rud  Actuator 

0.4181 

0.3  9  50  J 

-44.250 

60.555J 

Rud  Actuator 

0.3601 

O.OOOOJ 

-81.707 

O.OOOJ 

LE  Flap  Actuator 

0.3601 

0.0<)t)()J 

-81.708 

O.OOOJ 

LE  Flap  Actuator 

0.2255 

-0.4030J 

-61.808 

-84.S44J 

Stab  Actuator 

0.2255 

0.4030  J 

-61.  SOS 

S4.S44J 

Stab  Actuator 

0.223S 

0.40 19J 

-62.114 

S5.016J 

Stab  Actuator 

0.223S 

-0.40 19J 

-62.114 

-85.0 16J 

Stab  Actuator 

0.1226 

O.OOOOJ 

-167.  SS5 

O.OOOJ 

Rate  Gvro  Sensor 

0.1216 

O.OOOOJ 

-168. 5S2 

O.OOOJ 

Rate  Gvro  Sensor 

0.1208 

O.OOOOJ 

-169.101 

O.OOOJ 

Rate  Gvro  Sensor 

-0.0042 

-0.0203J 

-309.929 

-141.910J 

Accel  Sensor 

-0.0042 

0.0  20  3  J 

-309.929 

141.910J 

Accel  Sensor 

0.0017 

-0.0OS2J 

-382.321 

-109.192J 

Accel  Sensor 

0.00  17 

0.008  2  J 

-382.321 

109.192J 

Accel  Sensor 

0.0033 

O.OOOOJ 

-457.797 

O.OOOJ 

Rate  Gvro  Sensor 

0.0032 

O.OOOOJ 

.460.647 

O.OOOJ 

Rate  Gvro  Sensor 

0.0031 

O.OOOOJ 

-461.227 

O.OOOJ 

Rate  Gvro  Sensor 
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TABLE  9 

F/A-18A  UNDAMAGED  AIRCRAFT  EIGENSTRUCTURE 

Spiral 

Phugoid 

Phugoid 

X  =  0.0029  +  O.OOOOJ 

K  =  -0.0 173  +  0.0000] 

X  =  -0.5 115  +  O.OOOOJ 

0.0000 

0.0000J 

-1.0000 

O.OOOOJ 

-0.3443          O.OOOOJ 

0.0000 

0.000OJ 

0.0559 

O.OOOOJ 

1.0000           O.OOOOJ 

.      0.0000 

0.0000J 

0.0000 

O.OOooJ 

0.OO16          o.oOOoJ 

0.0000 

O.OOOOJ 

0.0000 

o.ooooj 

-0.0031          o.Ooooj 

0.7764 

O.OOOOJ 

0.0000 

O.OOOOJ 

o.Oooo          o.ooOOJ 

0.0494 

O.OOOOJ 

0.0000 

O.OOOOJ 

O.OOOO             O.OOOOJ 

0.0029 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 

1.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 

Roll 

Dutch  Roll 

Dutch  Roll 

a  =  -2.9042 

X  = -1.8703 

-2.61 5  2J 

X  =  -1.S703  +■  2.6152J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000           O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

O.Oooo 

o.ooOOJ 

O.OOOO           O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

O.OOOO          o.ooooJ 

-1.0000 

O.ooOOJ' 

-1.0000 

-1.2610.1 

-1.0000           1.2610J 

-0.0037 

O.OOOOJ 

0.0026 

-0.0O75J 

0.0026          0.0075.1 

-0.047S 

O.OOOOJ 

0.0049 

0.0166J 

0.0049         -O.0166J 

0.0165 

O.OOOOJ 

-0.005 1 

-0.00 18J 

-0.0051          0.00 1SJ 

Short  Period 

Short  Period 

\  =  -2.2794 

-2.70 16J 

1  =  -2.2794  +  2.70 16J 

0.0183 

-0.0031  J 

0.0183 

0.0031  J 

-1.0000 

-1.773SJ 

-1.0000 

1.773SJ 

-0.0055 

0.0078  J 

-0.0055 

-0.007SJ 

-0.0007 

-O.0026J 

-0.0007 

0.0026J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

o.ooOOJ 

O.Oooo 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

The  initial  test  performed  on  the  desired  eigenstructure  was  the  right  null 
space  constraint.  Table  14  depicts  the  null  space  residuals  for  Case  A.  Note  that 
RES  is  0.036547  for  this  case  which  compares  favorably  with  that  of  the  undamaged 
(or  nominal)  value.  Therefore  the  desired  right  eigenvectors  were  considered  members 
of  the  Case  A  perturbed  right  null  spaces  and  no  reorientation  was  considered 
necessary.  When  the  left  eigenvectors  were  tested  for  left  null  space  membership,  a 
value  of  RES/  =   125.11  was  obtained.    When  compared  with  a  value  of  3.3046.  it  was 
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TABLE  K 

) 

F 

A-1SA  UNDAMAGED  FEEDBACK  GAIN 

MATRIX 

0 

NZ 

AA 

R 

RST 

0.214E-00 

-0.13  IE -00 

O.OOOE  +  00 

O.OOOE  -  00 

LST 

0.214E  +  00 

-0. 1 3 1 E  -  00 

O.OOOE  +  00 

O.OOOE  +00 

RLE 

O.OOOE  +  00 

O.Oooe -00 

0.209E-01 

O.OOOE  +  00 

LLE 

O.OOOE  +  OO 

O.OOOE +  00 

0.209E-01 

O.OOOE  +  00 

RTE 

o.Oix  >E  +00 

O.OOOE  +  oo 

0.I1OE-O1 

O.OOOE  +00 

LTE 

o.oooe  -  00 

O.OOOE  +  00 

0.110E-01 

O.OOOE  +  OO 

RA 

0.0O0E  +  00 

O.OOOE  +  00 

O.oooE -00 

O.oOoE  +  00 

LA 

O.OOOE  -  oo 

O.OOOE  +  00 

O.OOOE  +  OO 

O.oooE +  00 

RR 

O.OOOE  -  00 

O.OOOE  -  00 

0.0  iOE  +  00 

0.689E  +  00 

LR 

O.OOOE  +  00 

o:oooe+oo 

O.OOOE  +  00 

0.689E  +  00 

P 

NY 

CI 

C2 

RST 

0.240E-01 

O.OOOE  +  00 

-0.257E-02 

0.748E-03 

LST 

0.240E-01 

O.OOOE +  00 

-0.257E-02 

0.748E-03 

RLE 

O.OOOE  -  00 

O.OoOE  +  00 

O.OOOE+00 

O.OOOE  +  00 

LLE 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE-00 

O.OOOE-00 

RTE 

0.192E-01 

O.onoE -00 

O.OOOE  +  OO 

OfOOOE  +  OO 

LTE 

-0.192E-01 

O.OOOE -00 

O.oooE +  00 

O.OOOE  +  00 

RA 

0.600E-01 

O.OoOE-OO 

O.OOOE  +  00 

O.OOOE  +  00 

LA 

-0.600E-01 

O.ooOE -00 

o.ooOE +  00 

O.OOOE  +  OO 

RR 

0.38SE  +  00 

0.165E  +  02 

O.OOoE -"o 

.OOOE  +  00 

LR 

0.3S8E  +  00 

0.165E+02 

O.OOOE  +  00 

O.oooE -00 

C3 

C4 

C5 

C6 

RST 

-0.191E-O1 

-0.21  IE  --00 

-0.383  E-01 

O.OOOE  +  00 

LST 

-0.191E-01 

-0.21  IE -00 

-0.383E-01 

O.OOOE  +  00 

RLE 

O.OOOE  +  00 

O.OOOE-00 

O.OOOE  +  00 

0.412E-01 

LLE 

O.OOOE  +  00 

O.OOOE-OO 

O.OOOE  +  00 

0.412E-01 

RTE 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  OO 

LTE 

O.OOOE  +  00 

0.000E  +  0O 

O.OOOE  +  OO 

O.OOOE  +  00 

FLA 

O.OOOE +  00 

O.OOOE+00 

O.OOOE  +  00 

O.OooE -00 

LA 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  -  Ol  1 

O.OOOE  +  00 

RR 

O.OOOE +  00 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

LR 

O.OOOE +  00 

O.OOOE  +  00 

O.OOoE  +00 

O.OOoE  -  00 

C7 

C8 

C9 

CIO 

RST 

O.OOOE +  00 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

LST 

O.OOOE  +  00 

o.oooE -00 

o.oooE -oo 

O.OOOE  +  OO 

RLE 

O.OOOE -oo 

O.OOOE  +  00 

o.QooE-  00 

O.OOOE  +  00 

LLE 

O.OOOE  +  00 

O.OOOE  -  00 

O.OOOE  +  00 

O.OOOE  +  00 

RTE 

219E-OI 

O.OOOE  -  00 

O.OooE  -  1 H 1 

O.OOOE  +  00 

LTE 

0.219E-01 

O.OOOE-' 

O.OOoE-1" 

O.OOOE  +  00 

RA 

O.OOOE -00 

O.OOOE-OO 

OOE  +  00 

O.oooE -00 

LA 

O.OOOE -^00  ■ 

O.OOOE-OO 

O.OOOE  +  00 

O.OOOE+00 

RR 

O.OOOE  -  00 

-0.856E-02 

-0.494E-02 

O.OOOE-OO 

LR 

O.OOOE  -^  00 
CI  I 

-0.856E-02 
C12 

-0.494E-02 

O.OOOE  +  00 

RST 

O.OOOE  +  00 

O.OOOE  +  00 

LST 

o.D.XiE -oo 

O.OOOE  +  oo 

RLE 

o.oooE -00 

O.OOOE +  00 

LLE 

O.OOOE +  00 

O.OOOE-00 

RTE 

O.OOOE -00 

O.OOOE+OO 

LTE 

O.OOOE  +  <)0 

O.oooE  +  00 

RA 

O.OOOE  +  00 

O.OOOE  +  00 

LA 

O.OOOE +  00 

O.OOOE  +  00 

RR 

0.317E-02 

O.OOOE +  00 

RR 

0.317E-02 

O.OOOE  +  00 
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TABLE  11 
FA- ISA  NOMINAL  NULL  SPACE  RESIDUALS 


Mode 


ShPer 

ShPer 

PUD 

DRoll 

DRoll 

FPhug 

Y3D 

Roll 

SPhug 

Filtr 

Filtr 

Filtr 

Filtr 

Filtr 

Filtr 

Spira 

Filtr 

Filtr 


RESr=V||er.||2    =   o. 

RES1=52||c1±||2  =  o. 
Herill 

2-Norm  co-Norm 


10646E-04 
10646E-04 
10902E-04 
30222E-02 
30222E-02 
36685E-05 
43926E-05 
53555E-03 
0. 3S242E-06 
0. 53746E-04 
33415S-03 
16079E-04 
28549E-11 
14593E-12 
45935E-03 
0. 24578E-10 
0. 48253E-12 
0. 00000E+00 


0. 
0. 
0. 

0. 
0. 
0. 
0. 
0. 


0. 
0. 

0. 

c. 

0. 


0. 71796E-05 
0. 71796E-05 
0. 76087E-05 
0. 29889E-02 
0. 29839E-02 
0. 23228E-05 
0. 29008E-05 
52682E-03 
26453E-06 
40515E-04 
32759E-03 
13604E-04 
0. 20861E-11 
0. 95229E-13 
45639E-03 
17275E-10 
38527E-12 


0. 

0. 
0. 
0. 
0. 


0. 
0. 
0. 


0. 00000E+00 


74838E-01 
33046E+01 

Kill 

2 -Norm 

0. 52883E+00 
0. 52883E+00 
0. 14053E-01 
0. 41392E-03 
0. 41392E-03 
0. 16863S+00 
0. 76362E-01 
0. 31910E-03 
0. 12615E+01 
0. 10055E-03 
0. 49189E-03 
0. 69333E+00 
0. 13364E-03 
0. 23156E-01 
0. 80447E-02 
0. 00000E+00 
0. 00000E+00 
0. 00000E+00 


co  norm 

0. 11033E-03 
0. 11033E-03 
0. 44177E-05 
0. 70056E-13 
0. 70056E-13 
0. 33777E-04 
0. 13423E-04 
0. 17306E-12 
0. 12600E+01 
0. 11079E-14 
0. 14597E-14 
0. 12940E-05 
0. 33852E-15 
0. 56115E-08 
0. 65734E-15 
0. 00000E+00 
0. 00000E+00 
0. 00000E+00 


decided  that  reorienting  the  left  eigenvectors  was  required.  In  particular,  note  that  the 
source  of  left  residual  error  was  predominantly  due  to  the  short  period,  phugoid,  and 
two  of  the  filter  modes.  PUD  and  Y3D.  PUD  is  a  longitudinal  filter  which  sends 
angle  of  attack  data  to  the  collective  flap  commands.  The  Y3D  is  a  lateral  feedback 
filter  which  smooths  yaw  and  roll  rate  feedback  to  the  synchronous  rudder  commands. 
Note  that  the  lateral  aircraft  modes  satisfy  both  right  and  left  perturbed  null  space 
constraints  as  might  be  expected  since  the  degradation  is  in  the  longitudinal  surfaces 
only.  Note  additionally  that  the  three  modes  at  the  bottom  of  Table  14  have  true  zero 
left  residuals  just  as  in  the  undamaged  case.  This  depicts  the  dependence  of  the 
residual  on  the  open  loop  parameters  (A.B.C)  and  show  that  for  some  eigenvalues,  the 
null  space  constraints  will  always  be  satisfied  regardless  of  the  orientation  of  the 
eigenvector.  The  converse  is  also  true,  some  eigenvalues  will  always  invoke  a  null 
space  residual.  The  key  is  to  orient  their  vectors  as  close  as  possible  to  the  desired 
orientation  while  minimizing  the  residual  error. 
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LEGEND 
o  =  UNDAMAGED  PITCH  ATT 
x  =  25%  STM  DAMAGED  PITCH  ATT 


■9 — 9 — 9 — 9 — 9 — 9 — 9 — 9 5 — 9 — 9 — f — 9 — 9 — 9 — 9 — 9 — 9 — 9 — 9 — 9 — 9 — 9 — 9 — £ 

0.0  1.0  2.0  3.0  4.0  5.0  6.0 

TIME  -  SECONDS 

Figure  S.6     Case  A  Damaged  Pitch  Attitude  Response. 
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LEGEND 
o  =  UNDAMAGED  PITCH  RATE 
x  =  25%  SYM  DAMAGED  PITCH  PATE 


z> — 9 — 9 — f — © — e— 3 — f — 9 — 5 — 9 — f — S> — 9 — 9 — 9 — 9— <S> — 9 — 9 — $ — 9 — 3" — 9 — -0 


0.0  1.0  2.0  3.0  4.0 

TIME  -  SECONDS 


5.0 


6.0 


Figure  8.7     Case  A  Damaged  Pitch  Rate  Response. 


99 


Minimization  of  the  euclidean  norm  of  the  left  null  vector,  Zr,  for  each  of 
these  four  modes  was  performed  in  the  following  way.  All  fifty-five  elements  of  the  left 
eigenvector  were  allowed  to  van-  ±0.001  of  their  initial  value  to  provide  freedom  to 
rotate  as  close  as  possible  to  the  null  space  invoked  by  the  fixed  eigenvalue.  ADS  was 
then  used  to  minimize  He^  individually  for  each  of  the  four  modes.  Upon  completion 
of  the  minimization  procedure,  final  values  of  RESf  =  0.043691  and  RES/  =  37.117 
were  obtained.  Note  that  the  right  residual  sum  maintained  an  acceptable  value  during 
minimization  of  the  left  null  vector  norms.  This  is  demonstrative  of  the  higher 
dimension  of  the  right  null  space,(d(Er)  =  p  =  45)  as  compared  with  that  of  the  left 
null  space  (d(E/)  =  q  =  37).  Subsequent  to  the  minimization,  the  fast  eigenspace  was 
preserved  by  inserting  the  undamaged  elements  9-43,45,  and  47  into  the  37  fast  modes 
of  the  right  eigenvector  matrix.  The  reconfigured  feedback  gains  were  then  computed 
and  responses  were  plotted.  In  essence,  this  is  a  reduced  order  design  method  and 
proved  successful  for  the  symmetric  degradation  cases. 

Table  15  shows  the  reconfigured  feedback  gains  for  Case  A.  Note  that  the 
reconfigured  gains  invoke  deflection  commands  to  the  leading  and  trailing  edge  (laps 
via  pitch  rate,  normal  acceleration,  and  angle  of  attack  feedback  paths.  Additionally, 
feedback  gains  are  now  present  in  the  angle  of  attack  to  stabilator  feedback  path. 
Note  that  these  paths  are  not  present  in  the  longitudinal  control  model  of  Figure  S.3. 
This  solution  therefore  would  require  a  modification  to  the  aircraft  control  system. 
Additionally  there  are  feedback  gains  between  selected  filter  states  and  the 
leading,  trailing  edge  surfaces.  These  particular  filter  states  correspond  to  the  pitch  rate 
to  collective  stabilator.  normal  acceleration  to  collective  stabilator.  pitch  stick  to 
collective  stabilator,  and  angle  of  attack  to  collective  leading  flap  feedback  filters.  This 
longitudinal  reconfiguration  was  implicitly  invoked  by  the  design  technique  described 
above.  Table  16  depicts  the  reconfigured  eigenstructure  for  Case  A.  Note  the  slower 
phugoid  (/.  =  -0.4616)  has  been  shifted  to  90.24%  of  the  undamaged  value  which  is  a 
9.59%  improvement  over  the  damaged  eigenvalue  location.  Also  noteworthy  is  the 
weak  modal  coupling  to  forward  and  vertical  velocity  in  the  spiral  mode.  Similarly, 
there  is  weak  coupling  to  side  velocity  in  the  reconfigured  short  period.  Figures  8.S 
amd  S.9  show  the  reconfigured  pitch  attitude  and  pitch  rate  responses.  Note  that  the 
undamaged  responses  were  not  exactly  regained,  but  the  reconfigured  responses  show 
positive  signs  toward  performance  recover}'.  This  is  indicative  of  satisfying  the  null 
space   constraints   while  not   invoking   a   constraint   on   the   orientation   of  the   right 
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TABLE  12 

CASE  A  ( 

25%  SYMMETRIC)  DAMAGED  C-LOOP  EIGENVALUES 

Z- Plane  Roots 

S- Plane  Roots 

Mode 

1.0000 

0.0000  J 

0.000 

0.000  J 

1.0000 

0.000OJ 

0.000 

0.000J 

1.0000 

0.0000  J 

0.003 

0.000  J 

Spiral 

1.0000 

0.0000  J 

0.003 

O.OOOJ 

0.9998 

0.0000. J 

-0.019 

0.000.1 

Phugoid 

0.9949 

0.0000J 

-0.412 

O.OOOJ 

P  hug  old 

0.9S76 

0.0000  J 

-1.000 

O.OOOJ 

0.9863 

0.0OOOJ 

-1.104 

O.OOOJ 

0.9S21 

0.0000  J 

-1.443 

O.OOOJ 

0.9753 

0.0000J 

-2.000 

O.OOOJ 

0.9753 

0.0000  J 

-2.000 

O.OOOJ 

0.9753 

0.0000J 

-2.004 

O.OOOJ 

0.9645 

0.0000. J 

■2.892 

O.OOOJ 

Roll 

0.9764 

-0.0519.1 

-1.869 

-2.615.1 

Dutch  Roll 

■0.9764 

0.03 19  J 

-1.869 

2.615.1 

Dutch  Roll 

0.9575 

0.0OOOJ 

-3.477 

O.OOOJ 

0.9-59 

-0.0361J 

-1.899 

-2. 95 6  J 

Short  Period 

0.9-59 

0.036U 

-1.899 

2.956.1 

Short  Period 

0.S406 

O.O000  J 

-13.8S6 

O.OooJ 

0.7519 

0.0000  J 

-22.809 

O.OOOJ 

0.7109 

0.0000  J 

-27.292 

O.OOOJ 

0.7106 

0.0000  J 

-27.328 

O.OOOJ 

0.69S8 

-0.2220J 

-24.S21 

-24.612J 

0.69SS 

0.2220J 

-24.S21 

24.6 12J 

0.6985 

-0.2223J 

-24.849 

-24.651  J 

0.69S5 

0.2223J 

-24.849 

24.651  J 

0.7642 

0.3236.1 

-14.915 

32.043J 

0.7642 

-0.3236J 

-14.915 

-3  2. 04  3  J 

0.7596 

-0.3344J 

-14.90S 

-33.175J 

0.7596 

0.3  3  44  J 

-14.908 

33/175J 

0.4907 

-0.06 13J 

-56.335 

-9.93SJ 

0.4907 

0.06 13J 

-56.335 

9.93SJ 

0.4119 

0.0OOOJ 

-70.956 

O.OOOJ 

0.4267 

0.3259.J 

-49.749 

52.1S7J 

0.4267 

-0.3259J 

-49.749 

-52.187J 

0.4191 

0.3947J 

-44.173 

60.434J 

0.4191 

-0.3947J 

-44.173 

-60. 4  34 J 

0.41  SI 

0.3  9  50  J 

-44.250 

60. 555  J 

0.4  IS  1 

-0.3950J 

-44.250 

-60.555J 

0.3601 

0.0000  J 

-S  1.707 

O.OOOJ 

0.3601 

0.0000  J 

-81. 70S 

O.OOOJ 

0.2251 

-0.4027  J 

-61.SSS 

-S4.SSSJ 

0.2251 

0.40  27  J 

-61.SSS 

84.SSSJ 

0.2238 

0.4019J 

-62.117 

S5.01SJ 

0.2238 

-0.40 19J 

-62.117 

-85.0 1SJ 

0.1226 

0.0000  J 

-167.SS2 

O.OOOJ 

0.1219 

0.0000  J 

-16S.385 

O.OOOJ 

0.1208 

0.0000  J 

-169.101 

O.OOOJ 

-0.0042 

-0.0203J 

-309.929 

-141.910J 

-0.0042 

0.0203J 

-309.929 

141.910J 

0.0017 

-0.008  3  J 

-3S1.587 

-109.565J 

0.0017 

0.00S3J 

-381.587 

109.565J 

0.0032 

0.0000J 

-45S.S18 

O.OOOJ 

0.0032 

0.0000J 

-460.648 

O.OOOJ 

0.0031 

0.0000J 

-461.242 

O.OOOJ 
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TABLE  13 

CASE  A  (25° 

ASYMMETRIC  DAMAGE) 

AIRCRAFT 

EIGENSTRUCTURE 

Spiral 

Phugoid 

Phugoid 

X  =-0.0029 

\  =  -0.0187 

+  O.OOOOJ 

\  =  -0.4 123 

■O.OOOOJ 

0.0000 

0.0000  J 

1.0000 

O.OOOOJ 

0.4938 

O.OOOOJ 

0.0000 

0.0000J 

-0.0564 

O.OOOOJ 

-1.0000 

O.ooooJ 

0.0000 

0.0000  J 

0.0000 

O.OOOOJ 

-0.0016 

O.OOOOJ 

0.0000 

0.000O.J 

0.0000 

o.ooOOJ 

0.0039 

o.oooOJ 

-0.7765 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

-0.0494 

0.00(30  J 

o.oooo 

O.OOOOJ 

0.0000 

0.0001  )J 

-0.0029 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

-1.0000 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

Roil 

Dutch  Roll 

Dutch  Roll 

a  =  -2.S919 

X  =  -1.S691 

-2.6153J 

1  =  -1.8691  +  2. 6153J 

0.0000 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.ooOOJ 

0.0000 

O.OOOOJ 

O.OooO 

O.OOOOJ 

0.0000 

0. 00(H)  J 

0.0000 

0.0000  J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

1.0000 

O.OOOOJ 

1.0000 

-60.474J 

1.0000 

60.474J 

0.0037 

O.OOOOJ 

0.2549 

-0.1567J 

0.2549 

0.1567J 

0.0475 

O.nOOO  J 

-0.2563 

0.5983J 

-0.2563 

-0.59S3J 

-0.0164 

O.OOOOJ 

-0.1051 

-0.1731J 

-0.1051 

0.1731J 

Short  Period 

Short  Period 

k=-1.8994-2.9561J 

X  =  -1.8994  +  2.9561J 

0.0056 

-0.00S3J 

0.0056 

0.0O83J 

-1.0000 

-0.45 14J 

-1.0000 

0.45 14J 

-0.0007 

0.0052J 

-0.0007 

-0.005  2  J 

-0.0011 

-0.00 10J 

-0.0011 

0.00  lOJ 

0.0000 

O.OOOOJ 

0  0000 

O.OOOOJ 

0.0000 

o.ooOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

eigenvector.    Although  the  reconfigured  gains  provide  positive  steps  toward  regaining 
the  undamaged   response,   full  performance  recover}'  was   not   obtained  due  to   the 
undesirable  orientation  of  the  longitudinal  right  eigenvectors. 
2.  Case  B 

Figures  8.10  and  8.11  show  the  damaged  longitudinal  responses  for  the  50% 
symmetric  degradation  case.  Tables  17  and  IS  depict  the  perturbed  Cull  order  and 
aircraft  eigenstructures  respectively.    Table   19  shows  the  null  space  residuals.    Note 
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Mode 


ShPer 

ShPer 

PUD 

DRoll 

DRoll 

FPhug 

Y3D 

Roll 

SPhug 

Filtr 

Filtr 

Filtr 

Filtr 

Filtr 

Filtr 

Spira 

Filtr 

Filtr 


TABLE  14 
CASE  A  NULL  SPACE  RESIDUALS 


RESr=Y||cri 
RES^XllCii 


=  0. 36547E-01 
=  0. 12511E+03 


'rii'2 


2-Norm 


0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 


34926E-02 
34926E-02 
29547E-02 
43344E-02 
43344E-02 
19289E-02 
21797E-02 
43476E-02 
29235E-03 
58759E-04 
14587S-02 
72043E-02 
28572E-11 
25527E-12 
4^755E-03 
89445S-10 
49205E-12 
00000E+00 


x--Norm 


0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 
0. 


31823E-02 
31823E-02 
26955E-02 
36901E-02 
36901E-02 
17545E-02 
19839E-02 
37847E-02 
26580E-03 
52844E-04 
13553E-02 
55518E-02 
20878E-11 
17498E-12 
45448E-03 
78303E-10 
38527E-12 
00000E+00 


■li"2 


2-Norm 


0.  33484E  +  02 
0. 33484E+02 
0. 37790E+02 
0. 90522E-02 
0. 90522E-02 
0. 10999E+02 
0. 68938E+01 
0. 10488E+00 
0. 15057E+01 
0. 20671E-01 
0. 11536E-01 
69335E+00 
27317E-01 
23157E-01 
51955E-01 
00000E+00 
0000CE+00 
00000E+00 


0. 

0. 
0. 
0. 
0. 
0. 
0. 


'^norm 


0. 23673E+02 
0. 23673E-02 
0. 26721E+02 
0. 7C056E-13 
0. 70056E-13 
0. 77762E+01 
0. 48743E+01 
0. 17306E-12 
0. 12600E+01 
0. 11079E-14 
0. 14597E-14 
0. 12940E-05 
0. 33852E-15 
0. 56115E-03 
0. 65734E-15 
0. 00000E+00 
0. 00000E+00 
0. 00000E+00 


that  the  bad  actors  are  again  the  short  period,  fast  phugoid,  and  the  same  filter  modes 
as  Case  A.  Additionally  note  the  doubling  of  the  residual  sums  from  Case  A  to  Case 
B.  The  design  procedure  noted  above  for  Case  A  was  repeated  for  this  case.  Tables  20 
and  21  show  the  reconfigured  feedback  gains  and  aircraft  eigenstructure  for  Case  B. 
Figures  S.12  and  S.13  show  the  reconfigured  responses. 

The  lack  of  full  performance  recovery  is  more  clearly  demonstrated  in  these 
reconfigured  responses.  Note  that  although  the  reconfigured  phugoid  (X  =  -0.3699) 
eigenvalue  is  a  26.25%  improvement  over  the  damaged  eigenvalue  position  (X  = 
-0.293),  it  is  27.73%  slower  than  the  undamaged  value  of -0.511.  The  reconfigured 
short  period  eigenvalue  (X  =  -1.505  ±j3.013)  has  not  been  shifted  and  has  less  modal 
coupling  to  vertical  velocity  (-1.0000  ±j0.8656)  than  the  undamaged  short  period 
modes  (-1.0000  ±j  1.17738).  The  response  curves  also  indicate  that  although  the  null 
space  constraints  have  been  met,  performance  has  not  been  fully  recovered  due.  in 
part,  to  the  reorientation  of  the  phugoid  and  short  period  right  eigenvectors. 
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TABLE 

15 

RECONFIGURED  FEEDBACK  GAINS  FOR  CASE  A  DAMAGE 

0 

NZ 

AA 

R 

RST 

0.214E-OO 

-0.1? IE -00 

0.459E-03 

O.OOOE  -  00 

LST 

0.214E  +  00 

-0.13  IE +  00 

0.459E-03 

O.OOOE  +  o<  i 

RLE 

-0.355E-02 

0.745E-02 

0.267E-01 

o.oooe+i  n 

LLE 

-0.355E-02 

0.745  E-02 

0.267E-01 

O.OOoE -oo 

RTE 

0.608E-02 

-0.959E-O2 

0.462E-02 

O.OOOE  H 

-00 

LIE 

08E-02 

-0.959E-02 

0.462E-02 

O.OOOE  - 

rOO 

RA 

lOE  +  OO 

O.OOOE-"" 

O.OOOE  +  00 

O.OOOE  - 

-  00 

LA 

0.000E  +  00 

O.OOOE  +  i 

O.OOOE+00 

O.OOOE  H 

-00 

RR 

O.OOOE  - 

>oor;E+oo 

O.OOoE  +  00 

0.6S9E  +  00 

LR 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

0.6S9E  +  00 

P 

NY 

CI 

C2 

RST 

0.240E-01 

O.OOOE  +  00 

-0.261E-02 

0.747E-03 

LST 

-    l^OE-01 

O.OOOE  +  00 

-0.261  E-02 

0.747E-03 

RLE 

O.OOOE  +  00 

O.OOOE  +  00 

-0.502E-03 

O.OOOE  +  00 

LLE 

O.OOOE  +  00 

O.OOOE  +  00 

-0.502E-03 

O.OOOE -00 

RTE 

0.192E-01 

-0.264E-03 

0.531E-O3 

O.OOOE  +  00 

LTE 

-0.192E-01 

O.OOOE  +  00 

0.531E-03 

o.OooE +  00 

RA 

0.600E-01 

O.OOOE  -  00 

O.OOOE -00 

O.OOOE  +  00 

LA 

-0.600E-01 

O.OOOE  - 

0.000E  +  00 

O.oooE -00 

RR 

0.3S8E  +  00 

0.165E-02 

O.OOOE  +  00 

O.OOOE  +  00 

LR 

0.38SE  +  00 

0.165E  +  02 

O.OOOE  +  Oo 

0.000E  +  00 

C3 

C4 

C5 

C6 

RST 

-0.194E-01 

-0.210E-00 

-0.387E-01 

O.OOOE  +  00 

LST 

-0.194E-01 

-0.210E+00 

-0.3S7E-01 

O.OOOE  +  00 

RLE 

-0  373E-02 

0.941E-02 

-0.746E-02 

0.413E-01 

LLE 

-0.373E-02 

0.941E-02 

-0.746E-02 

0.413E-O1 

RTE 

0.?9^E-0? 

-0.125E-01 

0.790E-02 

O.OOOE  +  00 

LTE 

0.395E-02 

-0.125E-01 

0.790E-02 

0.000E  +  00 

RA 

0.000E  +  00 

O.OOOE -00 

O.OOOE  +  00 

O.oooE -Oo 

LA 

O.OOOE +  00 

O.OOOE +  00 

O.oooE +  00 

O.OOOE -oO 

RR 

O.OOOE  +  00 

O.OOOE +  00 

O.OOOE  +  00 

O.OOOE  +  00 

LR 

O.OOOE  +  00 

O.OOOE  -  00 

O.OOOE  +  00 

O.OOOE  -  00 

c- 

cs 

C9 

CIO 

RST 

0.000E  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

LST 

0.000E  +  00 

o.oooe 

O.OooE  +  00 

O.oooE -oo 

RLE 

0.436E-03 

O.OOOE  +  OO 

O.OOOE  +  00 

O.OOOE  +  00 

LLE 

0.436E-03 

O.OOOE  +  00 

O.OOOE  +  00 

O.oooE  +  00 

RTE 

0.214E-0I 

O.OOOE  -  00 

O.OOOE  +  00 

O.OOOE  +  00 

LTE 

0.214E-01 

f)  00OE  +  00 

O.OOOE  +  "" 

O.oooE  4-  00 

RA 

0.000E  +  00 

0.000E  +  00 

O.OOoE +  00 

O.oooE  +  00 

LA 

O.OOOE +  00 

O.OOOE-"') 

O.OOOE -00 

O.OOOE  -  00 

RR 

O.OOOE  +  00 

-0.856E-02 

-0.494E-02 

O.OOOE +  00 

LR 

O.OOOE  +  00 
CI  I 

-0.856E-02 

CI  2 

-0.494E-02 

0.000E  +  00 

RST 

O.OOOE  +  00 

O.OOOE  -MW 

LST 

OE  +  00 

0.000E  +  00 

RLE 

O.OOOE  +  00 

O.OOOE  +  00 

LLE 

O.OOOE  +  00 

OOE  +  OO 

RTE 

O.OOOE  +  00 

O.OOOE  +  00 

LTE 

O.OOOE +  00 

O.OOoE +  00 

RA 

OE  +  00 

O.OOOE  +  00 

LA 

O.OOOE  +  00 

O.ooOE +  00 

RR 

0.318E-02 

O.OOOE +  00 

LR 

0.31SE-02 

O.OOOE  +  00 
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TABLE  16 

CASE  A  RECONFIGURED  AIRCRAFT  EIGENSTRUCTURE 

Spiral 

Phu  °oid 

Phugoid 

X  =  0.0029 

X  = -0.0183 

+  O.OOOOJ 

X  =  -0.4616-0.0000J 

0.0047 

0.0000  J 

1.0000 

O.OOOOJ 

-0.4260         O.OOOOJ 

-0.0004 

O.OOOO  J 

-0.0549 

O.OOOOJ 

1.0000          o.ooooJ 

0.0000 

o.oooo  J 

O.OOoo 

O.OOOOJ 

O.0017          O.OoooJ 

0.0000 

O.oooo  J 

O.Oooo 

O.OOOOJ 

-o.oo3~          O.OOOOJ 

-0.7769 

0.0000  J. 

O.OOoo 

O.OOOOJ 

-0.0002          O.OOOOJ 

-0.0494 

o.oooO  J 

0.0000 

O.OOOOJ 

O.Oooo         o.ooooJ 

-0.0029 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000         o.ooooJ 

-1.0000 

0.0000J 

0.0000 

O.OOOOJ 

0.0000         O.OOOOJ 

Roll 

Dutch  Roll 

Dutch  Roll 

X  =  -2.S919 

X- -1.8693 

-2.6152J 

X  = -1.8693 +  2.6152J 

o.oooo 

0.0000J 

0.0000 

O.OOOOJ 

o.oooo         O.OOOOJ 

0.0000 

O.OOOO  J 

O.OOoo 

O.OOOOJ 

0.0000         O.OOOOJ 

O.oooo 

0.0000J 

•  0.0000 

O.OOOOJ 

0.0000         O.OOOOJ 

0.0000 

o.oooo  j 

0.00<  N ) 

O.OOOOJ 

O.OOOO          O.OoooJ 

-1.0000 

0.0000J 

-1.0000 

-0.013OJ 

-l.oooo         0.0130J 

-0.0037 

0.0000  J 

-0.0026 

-0.0042J 

-0.0026         0.0042J 

-0.0475 

0.0000J 

0.0099 

0.0042J 

0.0099         -0.O042J 

0.0164 

0.0000J 

-0.0029 

0.00 17J 

-0.0029         -0.0017J 

Short  Pe 

riod 

Short  Period 

X  — -1.8758 

•2.9291J 

X  =  -1.8758  +  2.929U 

-0.0222 

-0.012SJ 

-0.0222 

0.0128J 

-1.0000 

-2.5686J 

-1.0000 

2.5686J 

0.0129 

0.00 14J 

0.0129 

-0.0014J 

-0.0023 

-0.0029  J 

-0.0023 

0.00  29  J 

-0.0014 

-0.0010J 

-0.0014 

0.00 10J 

0.0000 

o  OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

0.0000J 

O.Oooo 

O.OOOOJ 

0.0000 

O.OOOOJ 

O.OooO 

O.OOOOJ 

The  design  procedure  for  Case  B  was  therefore  modified  to  enhance 
performance  recover}'  in  the  following  way.  Inspection  of  the  left  residual  null  vector. 
£/•,  for  the  short  period,  phugoid.  and  PUD  filter  modes  revealed  that  the  residuals 
were  predominantly  due  to  the  real  part  of  the  null  vector.  In  order  to  reduce  the 
norm  of  the  residuals,  the  real  parts  of  fast  elements  (9-43,45,47)  were  therefore 
unrestricted  during  the  minimization.  In  this  way  the  elements  of  the  slow  left 
eigenvector  which  corresponded  to  the  faster  actuator  and  sensor  modes,  were  allowed 
to  assume  the  dominant  role  in  the  orientation.    Upon  completion  of  this  minimization, 
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Figure  S.8     Case  A  Reconfigured  Pitch  Attitude  Response. 
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final  values  of  RESr  =  0.07127  and  RES/  =  72.7  were  obtained.  Again  note  the  right 
residual  sum,  RES  ,  indicates  that  the  new  right  eigenvectors  remain  in  the  allowable 
right  null  space.  The  fast  eigenspace  was  inserted  into  the  thirty-seven  fast  modes  in  a 
similar  fashion  as  before  and  the  reconfigured  gains  were  recomputed. 

The  resulting  eigenstructure  revealed  that  performance  had  improved 
somewhat  but  additional  recover}'  was  required.  The  fast  phugoid.  short  period,  and 
P9D  filter  modes  exhibited  short  falls  when  compared  to  the  undamaged  modal 
structure.  As  noted  previously,  a  procedure  at  this  point  would  be  to  compare  the 
present  right  eigenvectors  with  those  which  give  rise  to  performance  recovery  but 
perhaps  a  penalty  in  the  eigenvalue  location.  One  such  design  was  performed  in  the 
following  fashion.  By  modifying  the  objective  function  during  the  ADS  minimization 
to  represent  the  absolute  value  of  the  sum  of  the  components  of  the  left  null  vector,  £/•. 
a  different  set  of  right  eigenvectors  was  computed.  As  these  particular  eigenvectors 
gave  rise  to  a  RES/  =  199.5  and  RES  =  0.0066.  the  resulting  closed  loop  eigenvalues 
were  not  exactly  invoked  due  to  the  value  of  RES/  .  However,  the  response  of  the 
system  exhibited  better  performance  recovery.  Upon  comparing  the  slow  phugoid, 
short  period,  and  P9D  filter  modal  structures  with  these  better  performing  structures, 
noted  differences  in  the  structure  were  evident.  Therefore,  the  right  eigenvector  modes 
for  the  slow  phugoid,  short  period,  and  P9D  filter  were  replaced  with  the  better 
performing  vectors  which  gave  rise  to  better  performance  recovery.  The  new 
reconfigured  gains  and  aircraft  eigenstructure  are  shown  in  Tables  22  and  23.  The 
responses  are  shown  in  Figures  S.  14  and  S.15.  Note  the  shift  of  the  phugoid  to 
-0.43006  and  the  modal  structure  of  the  short  period.  The  slow  phugoid  has  been 
shifted  to  S4.1%  of  the  undamaged  value  vice  72.4%  in  the  first  Case  B  design.  This  is 
a  26.8%  increase  over  the  damaged  slow  phugoid  location  vice  a  15.1%  increase  in  the 
first  design.    Note  the  improved  responses  in  Figures  8.14  and  8.15. 

This  particular  method  of  performance  recovery  is  not  to  be  taken  as  a 
standard  by  any  means.  It  is  simply  one  which  was  successful  for  the  design  problem 
at  hand.  Further  research  would  entail  developing  a  more  systematic  procedure  for 
recovering  desired  performance.  For  example,  if  one  were  to  simply  insert  the 
undamaged  modal  structures  for  the  slow  phugoid.  short  period,  and  P9D  filter, 
performance  would  improve  but  at  the  expense  of  the  slow  eigenvalue  locations. 

In  summary,  one  converged  on  an  allowable  eigenvector  set  which  will  invoke 
eigenvalue  locations  via  the  feedback  gain  equation  but  lacks  full  performance  recovery 
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in  the  short  period  and  slow  phugoid  modes.  Performance  recovery  was  obtained  by 
comparing  modal  short  falls  with  a  right  eigenvector  set  which  was  known  to  give  rise 
to  better  performance  recover}-  and  then  inserting  the  better  performing  modal 
structures.    Feedback  gains  were  then  recomputed  and  the  responses  improved. 

F.        THE  ASYMMETRIC  DEGRADATION  PROBLEM 

Asymmetric  stabilator  degradation  was  simulated  by  linearly  decreasing  only  the 
right  stabilator  control  effectiveness  via  appropriate  modification  of  the  gain  matrix. 
Tables  24  and  25  show  the  perturbed  full  order  eigenvalues  and  aircraft  eigenstructure 
respectively.  The  predominant  change  in  the  location  of  the  eigenvalues  occur  in  the 
slower  phugoid  (A  =  -  0.464)  and  short  period  modes  which  is  the  same  pattern  as 
Case  A.  The  significant  difference  however  between  Case  C  and  the  symmetric  cases 
lie  in  the  eigenvectors  of  the  aircraft  modes.  Note  the  modal  cross  coupling  for  all  the 
aircraft  modes  in  Table  25.  The  significant  cross  coupling  terms  are  noted  as  the  roll 
mode  coupling  to  vertical  velocity,  the  short  period  coupling  to  side  velocity,  the  spiral 
mode  coupling  to  forward  velocity,  and  dutch  roll  mode  coupling  to  vertical  velocity. 
Figures  S.  1-4  through  S.17  show  the  resulting  damaged  responses  to  the  1.0  in  3.0  sec 
longitudinal  command.  The  longitudinal  responses  are  rather  benign,  however  the 
resulting  undesired  bank  angle  and  yaw  rate  responses  are  clearly  depicted.  This  bank 
angle  and  yaw  rate  coupling  was  of  course  not  present  for  the  symmetric  degradation 
cases. 

A  solution  method  posed  for  this  problem  involves  a  superposition  technique. 
Since  the  25%  symmetric  case  has  been  solved,  one  already  has  computed  the  gains 
which  reconfigure  such  a  system.  A  superposition  technique  would  allow  one  to  use 
the  portion  of  these  gains  which  would  symmetrically  balance  the  asymmetric  control 
deficiency.  Once  the  aircraft  has  regained  its  undamaged  response,  these  balancing 
gains  would  then  be  removed  and  the  gain  values  would  be  reset  to  their  unperturbed 
values.  The  decision  as  to  whether  the  aircraft  had  regained  its  undamaged 
longitudinal  structure  could  then  be  based  on  the  presence  of  roll  or  yaw.  If  one  used, 
for  example,  bank  angle  sensing  as  decision  criteria,  one  in  effect  has  designed  a  roll 
detection  reconfiguration  controller.  This  type  of  controller  was  used  as  a  solution 
technique.  Note  that  this  technique  is  actually  a  digital  switch  which  is  evident  upon 
examining  the  reconfigured  responses  in  Figures  8.16  through  8.19.  A  system 
advantage  of  such  a  controller  might  be  that  one  would  be  required  to  store  symmetric 
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reconfiguration  gains  only.  Asymmetric  reconfiguration  could  then  be  invoked  by  a 
roll  detection  switch.  Figures  S.  16  through  8.17  depict  the  reconfigured  responses 
subsequent  to  such  a  reconfiguration  technique.  Table  24  shows  the  reconfigured  gains 
which  are  invoked  during  the  time  the  aircraft  is  experiencing  unacceptable  bank 
angles.  Note  that  the  bank  angle  response,  although  oscillatory,  exhibits  far  less 
coupling.  The  yaw  rate  response  is  also  oscillatory  and  has  decreased  in  amplitude. 
Additional  research  would  involve  investigating  the  origin  of  the  oscillation  and 
perform  a  smoothing  of  the  responses.  The  important  item  here  is  that  the  technique 
exhibits  successful  regaining  of  the  undamaged  bank  angle  response.  One  would  then 
be  able  to  solve  several  asymmetric  problems  using  the  corresponding  symmetric 
solutions. 


112 


TABLE  17 

CASE  B( 

50%  SYMMETRIC)  DAMAGED  C-LOOP  EIGENVALUES 

Z- Plane  Roots 

S- Plane  Roots 

1.0000 

0.0000  J 

0.000 

0.000J 

1.0000 

0.0000J 

0.000 

0.000J 

1.0000 

0.0000  J 

0.003 

0.000  J 

Spiral 

1.0000 

0.0000J 

0.003 

0.000  J 

0.9997 

o. dodo j 

-0.022 

0.000 J 

P hug  oid 

0.9963 

0.0000  J 

-0.293 

0.000. J 

P  hug  oid 

0.9  876 

0.0000J 

-1.000 

0.000J 

0.9S68 

0.0000J 

-1.066 

0.000J 

0.9S21 

0.0000  J 

-1.442 

0.000  J 

0.9753 

0.0000J 

-2.000 

0.000  J 

0.9753 

0.0000J 

-2.000 

0.000  J 

0.9753 

0.0000  J 

-2.004 

o.oooj 

0.9646 

0.0000  J 

-2.880 

0.000  J 

Roll 

0.9^64 

-0.03 19. J 

-1.86S 

-2.615.1 

Dutch  Roll 

0.9764 

0.03 19  J 

-1.S68 

2.615J 

Dutch  Roll 

0.9595 

0.0OOOJ 

-3.306 

O.OOOJ 

0.9804 

-0.037  5  J 

-1.527 

-3.056J 

Short  Period 

0.9804 

0.037 5. J 

-1.527 

3.056J 

Short  Period 

0.S403 

0.0000J 

-13.922 

O.OOOJ 

0.7435 

0.0000  J 

-23.710 

O.OOOJ 

0.7109 

0.0000J 

-27.292 

O.OOOJ 

0.7107 

0.0000  J 

-27.326 

O.OOOJ 

0.69SS 

-0.2  2 20 J 

-24.821 

-24.6 12J 

0.69SS 

0.2  2  20  J 

-24.S21 

24.612J 

0.69S5 

-0.2223J 

-24.S4S 

-24.652J 

0.6985 

0.2223J 

-24.S4S 

24.652J 

0.7625 

-0.3274J 

-14.920 

-32.447J 

0.7625 

0.3274J 

-14.920 

32.447J 

0.7595 

0.3345J 

-14.914 

33.1  S3  J 

0.7595 

-0.3345J 

-14.914 

-33.1S3J 

0.4907 

-0.06 12J 

-56.334 

-9.934J 

0.4907 

0.06 12J 

-56.334 

9.934J 

0.4119 

0.0000  J 

-70.965 

O.OOOJ 

0.4267 

0.3259J 

-49.TJQ 

52.1S7J 

0.4267 

-0.3  259  J 

-49.749 

-52.1S7J 

0.4191 

0.3947J 

-44.173 

60.434  J 

0.4191 

-0.3947J 

-44.173 

-60.434J 

0.41S1 

-0.3  9  50  J 

-44.250 

-60.555J 

0.41  SI 

0.3950J 

-44.250 

60.555  J 

0.3  601 

0.0000J 

-81.707 

O.OOOJ 

0.3601 

0.0000  J 

-81. 70S 

O.OOOJ 

0.2247 

0.4024J 

-61.967 

S4.933J 

0.2247 

-0.4024J 

-61.967 

-84.933J 

0.2238 

0.40 19.J 

-62.120 

85.0 19J 

0.2238 

-0.40 19J 

-62.120 

-85.019J 

0.1226 

0.0000  J 

-167.878 

O.OOOJ 

0.1222 

0.0000J 

-168.188 

O.OOOJ 

0.12OS 

0.0000  J 

-169.101 

O.OOOJ 

. 

-0.0042 

-0.0203J 

-309.929 

-141.910J 

-0.0042 

0.0203J 

-309.929 

141.910J 

0.0017 

O.00S4J 

-380.871 

109.936J 

0.0017 

-0.00S4J 

-3SO.S71 

-109.936J 

0.0032 

0.0000  J 

-459.806 

O.OOOJ 

0.0032 

0.0000J 

-460.650 

O.OOOJ 

0.0031 

0.0000  J 

-461.257 

O.OOOJ 
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TABLE  18 

CASE  B  (50% 

SYMMETRIC  DAMAGE)  AIRCRAFT 

EIGEXSTRUCTL'RE 

Spiral 

Phugoid 

Phugoid 

X-  0.0029  +  O.OOOOJ 

X  =  -0.0216  +  O.OOOOJ 

\  =  -0.2929  +  0.000J 

0.0000 

O.OOOOJ 

-1.0000          O.OOOOJ 

0.S985          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0575          O.OOOOJ 

-1.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 

-0.0016          O.OOOOJ 

0.0000 

O.OOOOJ 

-0.000 1           O.OOOOJ 

0.0056         O.OOOOJ 

0.7766 

O.OOOOJ 

0.0000          O.OOOOJ 

0.0000         O.OOOOJ 

0.0494 

O.OOOOJ 

0.0000            O.OOOOJ 

O.0000          O.OOOOJ 

0.0029 

O.OOOOJ 

0.0000          O.OOOOJ 

0.0000         o.ooooj 

1.0000 

O.OOOOJ 

0.0000         O.OOOOJ 

0.0000          O.OOOOJ 

Roll 

Dutch  Roll 

Dutch  Roll 

X  =  -  2. 8796  +  O.OOOOJ 

X--1.8680-2.6153J 

X-  -1.8680  +  2.6153J 

0.0000 

O.OOOOJ 

0.0000         O.OOOOJ 

0.0000         O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 

0.0000         O.OOOOJ 

1.0000 

O.OOOOJ 

1.0000        -O.S315J 

1.0000          O.S315J 

0.0037 

O.OOOOJ 

0.0061          0.0020J 

0.0061         -0.0020J 

0.0473 

O.OOOOJ 

-0.0134          o.o041  J 

-0.0134        -0.0041  J 

-0.0164 

O.OOOOJ 

0.0014        -0.0041  J 

0.0014          0.0041  J 

Short  Period 

Short  Period 

X  =  -1.5271 

-3.0560J 

X  =  -1.5271  +  3.0560J 

0.0300 

0.009  8  J 

O.O'OO         -O.0O98J 

1.0000 

-3. 2090  J 

1. 0000          3. 2090  J 

-0.0157 

-0.0O25J 

-0.0157          0.0025  J 

0.0027 

-0.003  8  J 

0.0027          0.003  SJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 
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TABLE  IS 

CASE  B  NULL  SPACE  RESIDUALS 

RESr: 

=y 

Mrih  =  °- 

71177E-01 

RES1" 



Kih  =  0- 

24853E+03 

Mode 

I«rJ 

II 

I«lil 

2-Norm 

so-Norm 

2-Norm 

oonorm 

ShPer 

0. 

69S48E-02 

0. 

63638E-02 

0. 

66958S+02 

0. 

47344E+02 

ShPer 

0. 

69848E-02 

0. 

63638E-02 

0. 

65958E+02 

0. 

47344E+02 

PUD 

0. 

59112S-02 

0. 

53929E-02 

0. 

75575E+02 

0. 

53439E+02 

DRoll 

0. 

80799E-02 

0. 

75772E-02 

0. 

18091E-01 

0. 

70056E-13 

DRoll 

0. 

80799E-02 

0. 

75772E-02 

0. 

18091E-01 

0. 

70056E-13 

FPhug 

0. 

38550E-02 

0. 

35073E-02 

0. 

21993E+02 

0. 

15551E+02 

Y3D 

0. 

43562E-02 

0. 

39647E-02 

0. 

13785E+02 

0. 

97474E+01 

Roll 

0. 

84017E-02 

0. 

74468E-02 

0. 

20977E+00 

0. 

17306E-12 

SPhug 

0. 

58469E-03 

0. 

53156E-03 

0. 

20722E+01 

0. 

126.0CE  +  01 

Filtr 

0. 

12966E-03 

0. 

11710E-03 

0. 

41343E-01 

0. 

11079E-14 

Filtr 

0. 

29424E-02 

0. 

27095E-02 

0. 

23058E-01 

0. 

14597E-14 

Filtr 

0. 

14411E-01 

0. 

13104E-01 

0. 

69341E+00 

0. 

12940E-05 

Filtr 

0. 

28594E-11 

0. 

20895E-11 

0. 

54636E-01 

0. 

33852S-15 

Filtr 

0. 

42821E-12 

0. 

35023E-12 

0. 

23159E-01 

0. 

56115E-08 

Filtr 

0. 

45401E-03 

0. 

45067E-03 

0. 

10299E+00 

0. 

65734E-15 

Spira 

0. 

17388E-09 

0. 

15661E-09 

0. 

00000E+00 

0. 

00000E+00 

rlltr 

0. 

50470E-12 

0. 

38527E-12 

0. 

00000E+00 

0. 

00000E+00 

Filtr 

0. 

00C00E+00 

0. 

00000E+00 

0. 

00000E+00 

0. 

00000E+00 
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TABLE 

20 

RECONFIGURED  FEEDBACK  GAINS  FOR  CASE  B  DAMAGE 

O 

NZ 

A  A 

R 

RST 

0.214E  +  00 

-0.131E  +  00 

0.256E-03 

O.OOOE  +  00 

LST 

0.214E  +  00 

-0.1 3  IE +  00 

0.256E-03 

O.OOOE  +  OO 

RLE 

-0.480E-02 

0.993E-02 

0.2S5E-01 

O.OOOE  +  OO 

LLE 

-0.480E-02 

0.993  E-02 

0.285E-01 

O.OOOE  +  00 

RTE 

0.116E-01 

-0.179E-01 

-0.S52E-O3 

O.OOOE  +  00 

LTE 

0.116E-01 

-0.179E-01 

-0.S43E-03 

O.OOOE  +  00 

RA 

0.OO0E  +  00 

O.OOOE +  oo 

O.oooE  +  00 

O.OOOE+00 

LA 

0.000E  +  00 

O.OOOE  +  00 

O.OOOE  +  OO 

O.OOOE  +  00 

RR 

0.000E  +  00 

o.oooE  +  00 

O.OOOE +  00 

0.689E  +  00    . 

LR 

0.OOOE  +  00 

O.OOOE +  00 

O.OOOE  +  00 

0.6S9E  +  00 

P 

NY 

CI 

C2 

RST 

0.240E-01 

O.OOOE  +  00 

-0.25SE-02 

0.74SE-03 

LST 

-0.240E-01 

O.OOOE  +  00 

-0.25SE-02 

0.74SE-03 

RLE 

0.000E  +  00 

O.OOOE +  00 

-0.664E-03 

O.OOOE  +  OO 

LLE 

O.OOOE  +  00 

O.OOOE  +  00 

-0.664E-03 

O.OOOE  +  00 

RTE 

0.192E-0I 

-0.240E-03 

0.97SE-03 

O.OOOE  +  00 

LTE 

-0.192E-01 

-0.141E-O3 

0.97SE-03 

O.OOOE  +  00 

RA 

0.600E-01 

O.OOOE  +  00 

0.000E  +  00 

O.OOOE  +  00 

LA 

-0.600E-O1 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  Oo 

RR 

0.388E  +  00 

0.165E  +  02 

O.OOOE  +  OO 

0.000E  +  00 

LR 

0.3SSE  +  00 

0.165E  +  02 

O.OOOE  +  00 

O.OOOE  +  OO 

C3 

C4 

C5 

C6 

RST 

-0.192E-01 

-0.21  IE +  00 

-0.3S4E-01 

O.OOOE  +  00 

LST 

-0.192E-01 

-0.21  IE +  00 

-0.3S4E-01 

0.000E  +  00 

RLE 

-0.494E-02 

0.126E-01 

-0.9SSE-02 

0.413E-01 

LLE 

-0.494E-02 

0.126E-O1 

-0.9SSE-02 

0.413E-01 

RTE 

0.727E-02 

-0.235E-01 

0.145E-01 

-0.112E-03 

LTE 

0.727E-02 

-0.235E-01 

0.145E-01 

-0.111E-03 

RA 

O.OOOE  +  00 

o.oooe  +  oo 

O.OOOE  +  OO 

O.OOOE  +  00 

LA 

O.OOOE  +  00 

o.oooe  +  oo 

O.OOOE  +  00 

O.OOOE  +  00 

RR 

O.OOOE+00 

O.OOOE +  00 

O.OOOE  +  OO 

O.OOOE  +  00 

LR 

O.OOOE  +  00 

'O.OOOE +  00 

O.OOOE  +  OO 

O.OOOE  +  00 

C7 

cs 

C9 

CIO 

RST 

O.OOOE  +  00 

o.oooe  +  oo 

O.OOOE  +  00 

O.OOOE  +  00 

LST 

O.OOOE +  00 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

RLE 

0.5S9E-03 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  OO 

LLE 

0.5S9E-03 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

RTE 

O.210E-01 

o.oooe  +  oo 

O.OOOE  +  OO 

0.000E  +  00 

LTE 

0.210E-01 

O.OOOE  +  OO 

O.OOOE  +  00 

O.OOOE  +  00 

FLA 

O.OOOE +  00 

O.OOOE  +  00 

O.OOOE  +  00 

0.000E  +  00 

LA 

O.OOOE +  00 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

RR 

O.OOOE +  00 

-0.S56E-02 

-0.494E-02 

O.OOOE  +  00 

LR 

O.OOOE  +  00 
CI  I 

-0.856E-02 
C12 

-0.494E-02 

O.OOOE  +  00 

RST 

O.OOOE  +  00 

O.OOOE  +  00 

LST 

O.OOOE  +  00 

O.OOOE  +  00 

RLE 

O.OOOE  +  00 

o.oooe  +  oo 

LLE 

O.OOOE  +  00 

O.OOOE  +  00 

RTE 

O.OOOE +  00 

O.OOOE +  00 

LTE 

O.OOOE  +  Oo 

O.OOOE  +  00 

RA 

O.OOOE  +  00 

0.000E  +  00 

LA 

O.OOOE  +  00 

O.OOOE  +  00 

RR 

0.317E-02 

O.OOOE  +  00 

LR 

0.31SE-02 

O.OOOE  +  00 
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TABLE  21 

CASE  B  RECONFIGURED  AIRCRAFT  EIGENSTRUCTURE 

Spiral 

Phugoid 

Phugoid 

'/.  =  -0.0029 

/.  = -0.0202  + O.OOOOJ 

X  = -0.3699 

-O.OOOOJ 

0.0298 

0.0000  J 

-1.0000 

O.OOOOJ 

0.6586 

O.OOOOJ 

-0.0017 

0.0000J 

0.0535 

O.OOOOJ 

-1.0000 

O.OOOOJ 

0.0000 

0.0000J 

0.0000 

O.OOOOJ 

-0.0019 

O.OOOOJ 

0.0000 

0.0O0OJ 

-0.0001 

O.OOOOJ 

0.0051 

O.OOOOJ 

-0.7768 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0002 

O.OOOOJ 

-0.0494 

lOOJ 

o.oooo 

'OOJ 

0.0000 

O.OOOOJ 

-0.0029 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

-1.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

•OOJ 

Roll 

Dutch  Roll 

Dutch  Roll 

X= -2.8796 

/.  =  -1.S6S2 

■2.6152J 

X« -1.8682 

+  2.6152J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

o.oooo 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

O.OOoO) 

O.OOOOJ 

o.oooo 

O.OOOOJ 

1.0000 

O.OOOOJ 

-1.0000 

1.265SJ 

-1.0000 

-1.265SJ 

0.0037 

O.OOOOJ 

-0.0079 

-O.OOOSJ 

-0.0017 

O.OOOSJ 

0.04'2 

O.OOOOJ 

0.0152 

-0.0085J 

0.0090 

0.0085J 

-0.0164 

O.OOOOJ 

-0.0006 

0.0054J 

-0.0033 

-0.0054J 

Short  Pe 

riotl 

Short  Period 

*.  =  -1.5052- 

■3.01 34J 

A.  =  -1.5052 

-3.0134J 

-0.0085 

-0.0096J 

-0.00S5 

0.009  6  J 

-1.0000 

0.8656J 

-1.0000 

-0.8656J 

0.0046 

0.004 1 J 

0.0065 

-0.0041  J 

-0.0017 

07J 

-".001 S 

•07J 

-0.0004 

lOOJ 

-0.0004 

' 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

OOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 
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o 

CI 


<Z3 


LEGEND 
UNDAMAGED  PITCH  ATT 
50%  SYM  DAMAGED  PITCH  ATT 
RECONFIGURED  PITCH  ATT 


0.0  1.0  2.0  3.0  4.0 

TIME  -  SECONDS 


5.0 


6.0 


Figure  S.12     Case  B  Reconfigured  Pitch  Attitude  Response. 
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o 
d- 


LEGEND 
UNDAMAGED  PITCH  RATE 
50%  SYM  DAMAGED  PITCH  RATE 
RECONFIGURED  PITCH  RATE 


2.0  3.0  4.0 

TIME  -  SECONDS 

Figure  S.13     Case  B  Reconfigured  Pitch  Rate  Response. 
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TABLE  22 

PERFORMANCE    RECOVERY         IDBACK  GAINS  FOR  CASE  B 

DAMAGE 

0 

NZ 

AA 

R 

RST 

0.213E  +  00 

-0.244E  +  00 

0.1S4E-02 

O.OOOE  +  OO 

LST 

0.213E  +  00 

-0.244E  +  00 

0.184E-02 

O.OOOE  +  OO 

RLE 

-0.175E-01 

-0.14SE  +  01 

0.501E-01 

0.000E  +  00 

LLE 

-0.175E-01 

-0.148E  +  01 

0.50  IE -01 

O.oooE +  00 

RTE 

0.204E-01 

0.127E  +  01 

0.61SE-02 

O.oOOE +  00 

LTE 

0.204E-01 

0.127E  +  01 

0.619E-02 

O.oooE +  00 

RA 

0.000E  +  00 

O.oOOE  +  oO 

0.000E  +  00 

O.OOOE  +  00 

LA 

0.000E  +  00 

O.OOOE  +  00 

O.OOOE  +  OO 

O.OOOE  +  00 

RR 

O.OOOE  +  00 

0.157E-03 

O.OOOE  +  00 

0.689E  +  00 

LR 

0.000E  +  00 

0.105E-03 

0.000E  +  00 

0.6S9E  +  00 

P 

NY 

CI 

C2 

RST 

0.240E-01 

0.000E  +  00 

-0.271E-02 

0.744E-03 

LST 

-0.240E-01 

0.000E  +  00 

-0.271E-02 

0.744E-03 

RLE 

0.000E  +  00 

O.OOOE  +  OO 

-O.360E-02 

0.000E  +  00 

LLE 

0.00OE  +  O0 

O.OOOE  +  00 

-0.360E-02 

0.000E  +  00 

RTE 

0.192E-01 

O.OOOE  +  OO 

0.222E-02 

O.OOOE  +  OO 

LTE 

-0.192E-01 

O.OOOE  +  00 

O.222E-02 

O.OOOE  +  Oo 

FLA 

0.600E-01 

O.OOOE  +  OO 

0.000E  +  00 

O.OOOE  +  00 

LA 

-0.600E-01 

O.oODE  +  oo 

o  OOOE  +  OO 

O.OOOE  +  oo 

RR 

0.388E  +  00 

0.165E  +  02 

O.OOOE  +  00 

O.OOOE  +  00 

LR 

0.3S8E  +  00 

0.165E  +  02 

O.OOOE  +  00 

O.OOOE  +  00 

C3 

C4 

C5 

C6 

RST 

-0.202E-01 

-0.208E  +  00 

-0.403E-01 

O.OOOE  +  00 

LST 

-0.202E-01 

-0.20SE  +  00 

-0.403E-01 

O.OOOE  +  00 

RLE 

-0.267E-01 

0.399E-01 

-0.535E-01 

0.418E-01 

LLE 

-0.267E-01 

0.399E-01 

-0.535E-01 

0.418E-01 

RTE 

0.205E-01 

-0.453E-01 

0.330E-01 

0.186E-02 

LTE 

0.205E-01 

-0.453E-01 

0.33OE-01 

0.1S6E-02 

RA 

0.000E  +  00 

0.000E  +  00 

0.000E  +  00 

O.OOOE  +  00 

LA 

0.0O0E  +  O0 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  OO 

RR 

0.000E  +  00 

O.OOOE  +  00 

O.OOOE  +  OO 

O.oooE +  00 

LR 

0.000E  +  00 

O.OOOE  +  00 

0.000E  +  00 

O.OOOE  +  OO 

C7 

cs 

C9 

CIO 

RST 

0.145E-03 

0.000E  +  00 

0.0O0E  +  00 

O.OOOE  +  00 

LST 

0.145E-03 

O.OOOE  +  00 

0.0OOE  +  oo 

0.000E  +  00 

RLE 

0.233E-02 

O.OOOE  +  00 

0.000E  +  00 

O.OOOE  +  00 

LLE 

0.233E-02 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  oo 

RTE 

0.205E-01 

0.000E  +  00 

O.OOOE  +  00 

0.000E  +  00 

LTE 

0.205E-01 

0.000E  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

RA 

0.000E  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

0.000E  +  00 

LA 

0.00OE  +  00 

O.OOOE  +  OO 

O.OOOE  +  00 

O.OOOE  +  00 

RR 

0.000E  +  00 

-0.856E-02 

-0.494E-02 

O.OOOE  +  00 

LR 

0.000E  +  00 
Cll 

-0.S56E-02 
C12 

-0.494E-02 

O.OOOE  +  00 

RST 

0.000E  +  00 

0.000E  +  00 

LST 

O.OOOE  +  00 

O.OOOE  +  00 

RLE 

0.000E  +  00 

O.OOOE  +  00 

LLE 

0.000E  +  00 

0.000E  +  00 

RTE 

O.OOOE  +  OO 

0.000E  +  00 

LTE 

0.000E  +  00 

O.OOOE  +  00 

RA 

0.000E  +  00 

O.OOOE  +  00 

LA 

O.OOOE  +  OO 

O.OOOE  +  00 

RR 

0.317E-02 

O.OOOE  +  00 

LR 

0.31SE-02 

O.OOOE  +  00 
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TABLE  23 

CASE  B  PERFORMANCE  RECOVERY  AIRCRAFT  EIGENSTRUCTURE 

Spiral 

Phugoid 

Phugoid 

/.  =  -0.0029 

.    X  =  -0.0 182  +  O.OOOOJ 

>.  = -0.4301 

+  O.OOOOJ 

0.0002 

0.0000  J 

-1.0000          O.OOOOJ 

0.5162 

O.OOOOJ 

0.0000 

0.0000  J 

0.0490          O.OOOOJ 

-1.0000 

o.ooooj 

0.0000 

0.0000  J 

0.0000          O.OOOOJ 

-0.0019 

O.OOOOJ 

0.0000 

0.0000J 

-0.0000         O.OOOOJ 

0.0045 

O.OOOOJ 

0.7394 

0.0000J 

0.0000          O.OOOOJ 

0.0003 

O.OOOOJ 

0.0494 

0.0000J 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

0. 0000  J 

0.0000          O.OOOOJ 

0.0000 

o.ooooj 

1 .0000 

0.0000  J 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

Roll 

Dutch  Roll 

Dutch  Roll 

\  =  -  2.8797 

X  =  -1.S6S2-2.6152J 

X  =  -1.S6S2 

+  2.6152J 

0.0000 

0.0000  J 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

0.0000  J 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

0.0000J 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

0.0000  J 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

-1.0000 

0.0000J 

-1.0000         -2.4534J 

-1.0000 

2.4534J 

-0.0037 

0.0000  J 

0.0076         -O.0107J 

0.0076 

0.0107J 

-0.0472 

0.0000  J 

-0.0002          0.02S6J 

-0.0002 

-0.0286J 

0.0164 

0.0000  J 

-0.0072        -0.0052J 

-0.0072 

0.005  2  J 

Short  Pe 

riod 

Short  Period 

/.  = -1.4342- 

•3.1480J 

K  =  -1.4342  +  3. 1480J 

-0.0159 

0.0082J 

-0.0159        -0.00S2J 

-1.0000 

-1.7481J 

-1.0000           1.74S1J 

0.0092 

-0.003  8  J 

0.0092          0.003  8  J 

-0.0021 

-0.0020J 

-0.0021          0.0020J 

-0.0004 

0.0000J 

-0.0004          O.OOooJ 

0.0000 

o.ooooj 

0.0000          O.OOOOJ 

0.0000 

0.0000  J 

0.0000          O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000          O.OOOOJ 
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Figure  8.14     Case  B  Performance  Recovery  Pitch  Attitude  Response. 
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Figure  8.15     Case  B  Performance  Recover}'  Pitch  Rate  Response. 
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TABLE  24 

CASE  C 

[25%  ASYMMETRIC)  DAMAGED  C-LOOP  EIGENVALUES 

Z-  Plane 

Roots 

S- Plane  Roots 

Mode 

1.0000 

0.0000J 

0.000 

0.00O  J 

1.0000 

O.OOOOJ 

0.000 

O.00OJ 

1.0000 

0.0000 J 

0.003 

0.000.1 

Spiral 

1. 0000 

0.0000  J 

0.004 

0.000.1 

0.9998 

0.0000.1 

-0.01S 

0.000.1 

Phugoid 

0.9942 

0.0000J 

-0.464 

0.000.1 

Phugoid 

0.9S76 

O.OOOOJ 

-1.000 

0.0OO.I 

0.9S60 

0.0000J 

-1.129 

0.000  J 

0.9S21 

0.0000J 

-1.443 

0.000J 

0.9753 

0.0000J 

•2.000 

0.000J 

0.9753 

0.0000  J 

-2.000 

O.OOOJ 

0.9753 

0.0000  J 

-2.004 

0.000  J 

0.9644 

0.0000 J 

-2.898 

O.OOOJ 

Roll 

0.9- 64 

-0.03 19  J 

-1.870 

-2.616.1 

Dutch  Roll 

0.9-64 

0.0319.1 

-1.870 

2. 616  J 

Dutch  Roll 

0.9"  3  6 

0.034- J 

-2.092 

2.852J 

Short  Period 

0.9736 

-0.03  47J 

-2.092 

-2.S52J 

Short  Period 

0.9558 

O.OOOOJ 

-3.613 

O.OOOJ 

0.8409 

0.0000J 

-13.861 

O.OOOJ 

0.7567 

O.OOOOJ 

-22.305 

O.OOOJ 

0.7109 

O.OOOOJ 

-27.292 

O.OOOJ 

0.7106 

O.OOOOJ 

-27.329 

O.OOOJ 

0.69S8 

-0  ->??oj 

-24.821 

-24.612J 

0.698S 

0.2  2  20  J 

-24.821 

24.61 2J 

0.6985 

-0.2223J 

-24.S49 

-24.65 U 

0.6985 

0.2223J 

-24.S49 

24.651  J 

0.7651 

-0.3216J 

-14.912 

-31.S32J 

0.7651 

0.32 16J 

-14.912 

31.S32J 

0.7597 

-0.3344J 

-14.906 

-33.172J 

0.7597 

0.3344J 

-14.906 

33.172J 

0.4907 

-0.06 13J 

-56.336 

-9.940J 

0.4907 

0.06 13J 

-56.336 

9. 940  J 

0.4119 

O.OOOOJ 

-70.951 

O.OOOJ 

0.4267 

-0.3259J 

-49.749 

-52.1S7J 

0.4267 

0.3259J 

-49.749 

52.187J 

0.4191 

0.3  947  J 

-44.173 

60.434J 

0.4191 

-0.3947J 

-44.173 

-60.434J 

0.4181 

-0.3950J 

-44.250 

-60.555.1 

0.4181 

0.3950J 

-44.250 

60.555J 

0.3  601 

O.OOOOJ 

-S  1.707 

O.OOOJ 

0.3601 

O.OOOOJ 

-81. 70S 

O.OOOJ 

0.2253 

0.40  29  J 

-61.S47 

S4.S66J 

0.2253 

-0.4029J 

-61.847 

-S4.S66J 

6.223S 

0.40 19J 

-62.116 

85.0 17J 

0.223S 

-0.40 19J 

-62.116 

-S5.017J 

0.1226 

O.OOOOJ 

-167.883 

O.OOOJ 

0.1217 

O.OOOOJ 

-168.484 

O.OOOJ 

0.12OS 

O.OOOOJ 

-169.101 

O.OOOJ 

-0.0042 

0.0  20  3  J 

-309.929 

141.910J 

-0.0042 

-0.0  20 3 J 

-309.929 

-141.910J 

0.0017 

0.0083J 

-381.951 

109. 3  79  J 

0.0017 

-0.00S3J 

-381.951 

-109. 3 79 J 

0.0033 

O.OOOOJ 

-458.310 

O.OOOJ 

0.0032 

O.OOOOJ 

-460. 64  S 

O.OOOJ 

0.0031 

O.OO00J 

-461.236 

O.OOOJ 
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TABLE  25 

CASE  C  (25% 

ASYMMETRIC  DAMAGE)  AIRCRAFT 

EIGEXSTRUCTURE 

Spiral 

Phugoid 

Phugoid 

\  =  0.0029  +  0.0000J 

\  =  -0.0179  +  O.OOOOJ 

\  =  -0.4641  +  0.000J 

-0.0222 

0.0000J 

-1.0000 

O.OOOOJ 

-0.4041 

0.0000 

0.0012 

0.0000  J 

0.0561 

O.OOOOJ 

1.0000 

o.oooo 

0.0000 

0.0000  J 

0.0000 

0. 0000 1 

0.0016 

0.0000 

0.0000 

0.0000  J 

0.0000 

O.OOOOJ 

-0.0034 

0.0000 

-0.7765 

0.0000  J 

0.0016 

O.OOOOJ 

-0.0030 

0.0000 

-0.0494 

O.OOOOJ 

0.0001 

O.OOOOJ 

0.0001 

0.0000 

-0.0029 

0.0000  J 

0.0000 

O.OOOOJ 

-0.0010 

0.0000 

-1.0000 

O.OOOOJ 

0.0024 

O.OOOOJ 

0.0021 

0.0000 

Roll 

Dutch  Roll 

Dutch  Roll 

X.  = -2.8978 +  0.000J 

1  =  -1.8697 

■2.6156J 

X  =  -1.8697 

+  2.6156 

0.0002 

O.OOOOJ 

-0.0001 

-0.0006  J 

-0.0001 

0.0006 

-0.0114 

O.OOOOJ 

-0.0526 

0.0220J 

-0.0526 

-0.0220 

0.0000 

O.OOOOJ 

0.0002 

0.0002J 

0.0002 

-0.0002 

0.0000 

O.OOOOJ 

-0.000 1 

O.OOOOJ 

-0.0001 

0.0000 

1.0000 

O.OOOOJ 

1.0000 

-2.3749J 

1.0000 

2.3749 

0.003: 

O.OOOOJ 

0.0126 

-0.0021  J 

0.0126 

0.0021 

0.0477 

O.OOOOJ 

-0.0196 

0.0197J 

-0.0196 

-0.0197 

-0.0165 

O.OOOOJ 

-0.0014 

-0.00S5J 

-0.0014 

0.0055 

Short  i 

Period 

Short  Period 

X  = -2.092 

1  +  2.8524J 

X  =  -2.0921 

-2.S524J 

-0.0027 

-0.00S7J 

-0.0027 

0.0087J 

1.0000 

-0.0450J 

1.0000 

0.0450J 

-0.0015 

0.0045J 

-0.0015 

-0.004  5  J 

0.0013 

-0.0004J 

0.0013 

0.0004J 

-0.0491 

0.0 123  J 

-0.0491 

-0.0 123  J 

-0.0001 

0.0002J 

-0.0001 

-0.000  2  J 

0.0012 

O.OOOOJ 

0.0012 

O.OOOOJ 

-0.0002 

-0.0003J 

-0.0002 

0.000  3  J 
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Figure  8.16     Case  C  Bank  Angle  Responses. 
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Figure  8.17     Case  C  Yaw  Rate  Responses. 
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Figure  8.18     Case  C  Pitch  Attitude  Responses. 
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Figure  3.19     Case  C  Pitch  Rate  Responses. 
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TABLE 

26 

: 

RECONFIGURED  FEEDBACK  GAINS  FOR  CASE  C  DAMAGE 

0 

NZ 

AA 

R 

RST 

0.214E+00 

-0.13  IE +  00 

O.OOOE  +  OO 

O.OOOE  +  00 

LST 

0.214E  +  00 

-0.13  IE  +  00 

-0.323E-O3 

O.OOOE  +  OO 

RLE 

O.OOOE +  00 

0.00OE  +  00 

0.209E-01 

O.OOOE  +  00 

LLE 

-0.209E-02 

0.214E-02 

-0.320E-02 

O.OOOE  +  00 

RTE 

O.OOOE  +  00 

0.000E  +  00 

0.110E-O1 

O.OOOE  +  Oo 

LTE 

0.394E-02 

-0.208E-02 

0.427E-01 

o.oooe  +  oo 

RA 

O.OOOE +00 

0.000E  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

LA 

0  OOOE  +  00 

O.OOOE  +  OO 

O.OOOE  +  OO 

O.OOOE  +  00 

RR 

O.OOOE  +  00 

0.000E  +  00 

O.OOOE  +  00 

0.689E  +  00 

LR 

O.OOOE  +  OO 

0.000E  +  00 

0.000E  +  00 

0.6S9E  +  00 

p 

AT 

CI 

C2 

RST 

0.240E-01 

O.OOOE  +  OO 

-0.257E-02 

0.748E-03 

LST 

-0.240E-01 

o.OoOE  +  00 

-0.259E-02 

0.74SE-03- 

RLE 

0.000E  +  00 

0.000E  +  00 

0.0OOE  +  oo 

O.OOOE  +  OO 

LLE 

0.000E+00 

O.OOOE  +  OO 

-0.364E-03 

O.OOOE  +  00 

RTE 

0.192E-01 

0.000E  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

LTE 

-0.192E-01 

0.000E  +  00 

0.322E-03 

O.OOOE  +  Oo 

RA 

0.600E-01 

O.OOOE  +  OO 

0.000E  +  00 

O.OOOE  +  00 

LA 

-0.600E-01 

0.000E  +  00 

0.000E  +  00 

O.OOOE  +  OO 

RR 

0.38SE  +  00 

0.165E  +  02 

0.000E  +  00 

O.OOOE  +  oo 

LR 

0.3SSE  +  00 

0.165E  +  02 

0.00OE  +  00 

O.OOOE +  00 

C3 

C4 

C5 

C6 

RST 

-0.191E-01 

-0.21  IE +  00 

-0.383E-01 

O.OOOE  +  OO 

LST 

-0.193E-01 

-0.21  IE +  00 

-0.3S5E-01 

O.OOOE  +  00 

RLE 

0.000E  +  00 

0.000E  +  00 

0.000E  +  00 

0.412E-01 

LLE 

-0.271E-02 

0.431E-02 

-0.541  E-02 

0.403  E-01 

RTE 

0.000E  +  00 

O.OOOE  +  00 

0.000E  +  00 

O.OOOE  +  00 

LTE 

0.240E-02 

-0.523E-02 

0.479E-02 

0.210E-02 

RA 

0.000E  +  00 

0.0O0E  +  00 

0.000E  +  00 

O.OOOE  +  00 

LA 

0.000E  +  00 

O.OOOE  +  oo 

O.OOOE  +  00 

O.OOOE  +  00 

RR 

O.OOOE  +  00 

0.000E  +  00 

0.000E  +  00 

o.OOOE+00 

LR 

O.OOOE  +  00 

o.oooe  +  oo 

O.OOOE  +  00 

o.oooe  +  oo 

C7 

C8 

C9 

CIO 

RST 

0.000E  +  00 

0.000E  +  00 

0.00OE  +  00 

O.OOOE  +  00 

LST 

O.OOOE  +  00 

O.OOOE  +  OO 

O.OOOE  +  OO 

O.OOOE +  00 

RLE 

O.OOOE  +  00 

0.000E  +  00 

O.OOOE  +  OO 

O.OOOE  +  00 

LLE 

-0.252E-02 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

RTE 

0.219E-01 

O.OOOE  +  00 

o.oooe  +  oo 

O.OOOE  +  OO 

LTE 

0.241E-01 

O.OOOE  +  00 

O.OOOE  +  00 

o.oooe  +  oo 

RA 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

LA 

O.OOOE  +  00 

O.OOOE  +  OO 

O.OOOE  +  00 

O.OOOE  +  00 

RR 

O.O00E  +  00 

-O.S56E-02 

-0.494E-02 

0.000E  +  00 

LR 

O.OOOE  +  00 
CI  I 

-O.S56E-02 
CI  2 

-0.494E-02 

O.OOOE  +  00 

RST 

O.OOOE  +  00 

O.OOOE  +  OO 

LST 

O.OOOE  +  00 

O.OOOE  +  00 

RLE 

0.000E  +  00 

0.000E  +  00 

LLE 

O.OOOE  +  00 

O.OOOE  +  00 

RTE 

0.000E  +  00 

0.000E  +  00 

LTE 

0.0O0E  +  00 

O.OOOE  +  00 

RA 

O.OOOE  +  OO 

O.OOOE  +  00 

LA 

0.000E  +  00 

O.OOOE  +  00 

RR 

0.317E-02 

0.000E  +  00 

LR 

0.31SE-02 

0.000E  +  00 
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IX.  CONCLUSIONS  AND  RECOMMENDATIONS 

Applications  of  eigenstructure  assignment  to  design  of  robust  decoupling  and 
reconfiguring  controllers  has  been  shown  to  be  an  alternative  tool  for  the  control 
system  designer.  A  level  of  sophistication  over  conventional  design  techniques  is 
required  due  to  the  computational  problems  which  arise  from  high  order  systems. 
Specifically,  the  majority  of  the  computational  complexities  arise  from  the  vast  degrees 
of  freedom  for  eigenvector  orientation  available  in  hyperspace.  As  the  designer  must 
clearly  be  aware  of  the  modal  structure  of  the  system  at  hand,  the  technique  is  not  to 
be  envisioned  as  a  black  box  design  algorithm.  The  designer  must  become  an  active 
participant  during  all  steps  of  the  design.  Further  research  is  recommended  in  the 
following  areas: 

a.  Further  investigation  into  obtaining  performance  recoverv  via  modified 
objective  functions  for  the  reconfiguring  controller  problem  is  warranted. 

b.  Developing  more  efficient  optmizaticn  schemes  for  convergence  to  reoriented 
eigenvectors.  This  will  allow  the  researcher  to  more  actively  "engage  in  the  studv 
of  the  theoretical  aspects  of  eigenstructure  assignment  bv' relieving  the  burden 
of  computational  time  required  Tor  such  convergence. 

c.  Additional  research  into  analvzing  the  solution  to  the  asymmetric  degradation 
problem  is  required  for  refinement  of  the  technique.  '  Research  objectives 
associated  with  this  tvne  of  damage  would  also  involve  modeling  the  cross 
coupling  of  stability  aha  control  derivatives  for  several  coupling  scenarios. 

d.  Application  of  eigenstructure  assignment  to  design  of  robust  observers  and 
reconfiguring  damaged  observers  is"a  natural  extension  of  the  work  reported  in 

this  thesis. 

In  summary,  applications  of  eigenstructure  assignment  to  damaged  controllers 
has  been  shown  to  provide  solutions  to  a  specific  class  of  aircraft  damage.  Solution 
techniques  to  the  asymmetric  and  symmetric  degradation  problems  must  be  further 
refined  before  progressing  to  the  combined  actuator,  sensor,  control  surface 
degradation  scenarios. 
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APPENDIX  A 
NOTATION 

n No.  of  states 

m No.  of  inputs 

/ No.  of  outputs 

c No.  of  commands 

A Plant  Matrix  (nxn) 

B Control  Matrix  (nxm) 

C Output  Matrix  (/xn) 

D Feedforward-Output  Matrix  (/xm) 

F Feedback  Gain  Matrix  (mx/) 

Gi Feedfwd  Command-State  Matrix  (nxc) 

Gt Feedfwd  Command-Input  Matrix  (mxc) 

X Right  Eigenvector  Matrix  (nxn) 

A Diag  matrix  of  c-loop  eigenvalues 

T Left  Eigenvector  Matrix  (nxn) 

I    Identity  Matrix  (nxn) 

A  .  . Closed  Loop  Eigenvalue  Matrix  (nxn) 

A    Transpose  of  matrix  A 

A      Inverse  of  matrix  A 

A      Pseudo-Inverse  of  matrix  A 

t 

SVD(A) Singular  Value  Decomposition  of  matrixA=  t~'a— aVa 

L Diag  matrix  of  sinaular  values 

x- ith  closed  loop  right  eigenvector 

• 

x dxdt 

x(k) discrete  state  variable 

t- ith  closed  loop  left  eigenvector 

y , output  vector 

u control  input  vector 

X- ith  closed  loop  eigenvalue 

(Jj  Max  singular  value 

crn^n Min  singular  value  of  rank(m)  matrix 

||  A ||  2 Matrix  Spectal  Norm  of  matrix  A 
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HxlU Euclidean  Norm  of  vector  x 

££  or  N Null  Space 

d(  ) dimension  of  (  ) 

Onxn Null  Matrix  of  order  nxn 
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APPENDIX  B 
CONSTRAINTS  ON  EIGENSTRUCTURE  SPECIFICATION 

In  order  to  show  the  constraints  on  the  specification  of  the  closed  loop 
eigenstructure,  rewrite  equation  3.60  in  the  following  way, 

BFC  =  XAX-1  -A  (eqn  B.l) 

Post  multiplying  equation  B.l  by  X  yields, 

BFCX  =  XA  -AX  (eqn  B.2) 

Now  let  us  define  an  'n  x  n'  transformation  matrix.  Q  [Ref.  23],  such  that  B  is 
transformed  into  a  matrix  with  the  'mxm'  identity  in  the  first  'm'  rows  and  an  'n-m  x 
m'  null  matrix  in  the  bottom  'n  -  m'  rows, 


Q  =  {  B  |  Ubl)  eMnxn  (eqnB.3) 


Q  llm)   =  B  (eqnB.4) 

0> 


lm 


Q"!B  (eqn  B.5) 


I 


Further,   use   the   transformation   matrix   Q   to   define   the   following   similarity 
transformations. 

CQ  =  C°  (eqn  B.6) 


Q_1X  =  X°  (eqn  B.7) 
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Q_1AQ  =  A°  (eqnB.S) 

Pre  multiplying  equation  B.2  by  Q"*  yields, 

Q_1BFCX  =  Q"!XA  -  Q_1AX  (eqn  B.9) 

Noting  that  Q'^B  results  in  the  lead  identity  matrix  discussed  previously  and 
substituting  the  similarity  form  of  X  yields. 

(  Im)FCQX°  =  Q"JXA  -  Q'UqX0  (eqn  B.10) 

0> 

Further  substituting  the  similarity  forms  for  C.X,  and  A  into  equation  B.10  yields 
the  similarity  form  of  equation  B.2, 

ImjFC°X°  =  X°A  -  A°X°  (eqn  B.  11) 


{ 
O 

In  order  to  simplify  the  analysis,  let  us  remove  the  superscript  notation  for  the 
similarity  transformations  from  equation  B.ll  .  Equation  B.ll  is  then  partitioned  into 
upper  and  lower  blocks. 

The  upper  half  left  hand  block  of  equation  B.ll  becomes, 

FCXnx/  =  XmxAl  -  AmxnXnx/  <ecln  B'12) 

where  the  subscripts  denote  the  row  and  column  dimensions  of  the  respective  matrices. 
Solving  for  F  from  equation  B.12  yields  an  exact  solution  for  F, 

F  =  (VxA  -  "VxnXnx/><CXnx/»"'  (eqnB.13) 

The  lower  block  of  equation  B.ll  yields  the  following  equation, 

Vmx/  =  Xn-mx/A/ "  An-mxnXnx/  <ecln  B'14) 


135 


Equation  B.14  reveals  that  there  are  'n  -  m'  equations  with  'n'  unknowns  for  each 
closed  loop  eigenvalue  ).-.  Each  of  the  T  system  of  equations  is  therefore 
underspecified  and  one  can  only  specify  'm'  elements  of  each  column  of  X  j.  This  is 
of  course  the  classic  result  of  Srinathkumar  [Ref.  11]  which  is  stated  in  Chapter  II. 
Equation  B.13  is  the  result  noted  in  the  work  by  Srinathkumar  [Ref.  11]  and  Sohel  and 
Shapiro  [Ref.  23].  The  expressions  presented  in  Table  I  of  Chapter  III  as  noted 
previously  are  least  square  solutions  for  the  feedback  gains.  Note  that  if  one  desires  to 
invoke  n'  eigenvalues  and  'n'  elements  of  the  eigenvector  in  equation  B.13.  then 
equation  B.13  also  becomes  a  least  square  solution  due  to  CXnx/<  becoming  non 
square. 
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APPENDIX  C 
EIGENS 


C  EIGENVALUE/EIGENVECTOR  ASSIGNMENT  VIA  MOCRE  (1976) 

C  AND  KAUTSKY.ET.AL.  ( 1 985 )  ALGORITHMS.  PRESENT  PROGRAM 

C  ACCOMODATES  LTI  SYSTEMS  WITH  STATE  OR  OUTPUT  FEEDBACK. 

C  MOCRE  ALGORITHMS  ONLY  ACCOMODATE  SYSTEMS  WITH  REAL • DISTINCT , 

S  S  CONTROLLABLE  EIGENVALUES  AND  STATE  FEED.  KAUTSKY  ALGORITHM 

C  WILL  ACCOMODATE  SYSTEMS  WITH  COMPLEX  CONTROLLABLE  EIGENVALUES 

C  AND  WILL  FIND  ACHIEVABLE  EIGENVECTORS  ASSOCIATED  WITH  DESIRED 

C  C-LOOP  EIGENVALUES  FOR  30TH  STATE  AND  OUTPUT  FEEDBACK. 

C  ADDITIONAL  OPTIONS  INCLUDE  USING  THE  ADS  OPTIMIZATION  ROUTINE 

C  FOR:     1.  MINIMIZING  THE  CONDITION  NO.  OF  THE  EIGENVECTOR 

C  MATRIX.  (PRESENTLY  NOT  WORKING) 

C  2.  MINIMIZING  THE  SINGULAR  VALUE  OF  THE  RETURN 

C  DIFFERENCE  MATRIX  WITH  THE  CONSTRAINTS  OF  A  DE- 

C  SIRED  EIGENSTRUCTURE. 

C 

C  CDR  V.F.  GAVITO 

C  APRIL  1936 

C 

C 

C  DEFINITIONS 

C 

C  A  =  PLANT  MATRIX  (N  X  N) 

C  AT  =  A  TRANSPOSE  (N  X  N) 

C  B  =  CONTROL  MATRIX  (N  X  M) 

C  BDEL  =  DAMAGED  CONTROL  MAT  (N  X  M) 

C  Z    '    OUTPUT  MATRIX  (L  X  N) 

C  D  =  FEED  FORWARD  MATRIX  (LXM) 

C  EIG  =  O-LOCP  EIGENVALUES    (N  X  1)   COMPLEX  VECTOR 

C  EI30  =  O-LOCP  EIGENVALUES   (N  X  1)   (REAL  PART) 

C  EIGOI  =  0-LOOP       "         (N  X  1)   (IMAGINARY  PART) 

C  EIGD  =  DESIRED  C-LOOP  EIGENVALUES    (N  X  1 )   COMPLEX  VECT 

C  EIGDD  =  DESIGN  C-LOOP  EIGENVALUES 

C  EIGREC  =  C-LOOP  EIGENVALUES  OF  RECONFIGURED  SYSTEM 

C  SLAM3CA  =  <LAMCHA«I-A   3> 

C  RANK1  s  R<3LAMBDA> 

C  RANKZ  =  R<C> 

C  VD  =  DESIRED  BASE  EIGENVECTORS      (N  X  N) 

C  V  •  DESIGNED  BASE  EIGENVECTORS      (N  X  N) 

C  VRECON  =  EIGENVECTORS  (NORMALIZED)  OF  RECONFIGURED  SYSTEM 

C  CV  =  <C>»<V>  (L  X  N) 

C  E  =     "    C»V  FOR  EACH  EIGENVALUE  (L  X  N) 

C  WC1.2.3.4.5  =  WORK  COLUMN  VECTORS   (1  X  N) 

C  WM1 .Z.3.4 .5-6  =  WORK  MATRICES       (N  X  N) 

C  7.8.9.10.11.12= 

C  HK1.-2>S>4>5    =    WORK   AREAS   FOR   EIGRF 

C  W    =    FREOUENCY    (RAD/SEC) 

C  WP  =  "      FOR  DI3SPLA  COMPATIBILITY 

C  K  =  1  (FOR  FORCING  EOUALITY  RELATION  FOR 

C  UNCONTROLLABLE  EIGENVALUES) 

C  F  =  FEEDBACK  GAIN  MATRIX  (M  X  L) 

C  FC  =  COMPLEX  FEEDBACK  GAIN  MATRIX   (M  X  L) 

C  FDEL  =  RECONFIGURED  FEEDBACK  GAINS  CM  X  N) 

C  ABF  =  C-LCOP  MATRIX   A  ♦  BF 

C  ICTR  =  CONTROLLABILITY  FLAG  FOR  0-LOOP  EIGENVALUES 

C  IFEED  =  FEEDBACK  FLAG 

C  1  '  FULL  STATE  FEEDBACK 
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C  Z    '    OUTPUT  FEEDBACK 

C  3  =  OUTPUT  FEEDBACK  PLUS  FEED  FORWARD 

C  SF  >  SINGULAR  VALUE  VECTOR  FOR  FEEDBACK  GAINS 

C  SI  »  SINGULAR  VALUE  VECTOR  1 

C  S2  =  SINGULAR  VALUE  VECTOR  2 

C  SVM  s  MIN  SINGULAR  VALUE  OF  I  ♦  FG 

C  SVM1  =  MIN  SINGULAR  VALUE  OF  I  ♦  GF 

C  SVMAX  =  MAX    "         "    "   I  »  FG 

C  SVMAX!  =  "      "         "    "   I  ♦  GF 

C  SVMP  =  MAX    "         "    "     "   FG  FOR  DIS3PLA  COMPAT 

C  5MREC  =  MIN  O.V.  CF  RECONFIGURED  SYSTEM  !A  SINGLE  VALUE) 

C  WRED  =  FREQUENCY  OF  SMREC 

C  UI.VI  *  ORTHOGONAL  MATRICES  COMPUTED  BY  CSVD  FOR  SVD  OF 

C  RETURN  DIFFERENCE  MATRIX 

C  UIF.VIF  =  ORTHOGONAL  MATRICES  COMPUTED  BY  LSVDF  FOR  SVD  OF 

C  FEEDBACK  GAIN  MATRIX 

C  Z.Z1 .Z2.Z3.Z4.Z5  =  COMPLEX  WORK  AREAS 

C  UTSLAM  »  U«»TRANSPOSE  OF  SVD  OF  SLAMBDA 

C  VRT  =  UH»TRANS?OSE  OF  EIGENVECTOR  MATRIX 

C 

C 

C  DIMENSION  STATEMENTS 

C 

C»H«»«»«H«»««»»«..«1.««««««).»«««<>.»«)l. M««», «»»»«»», «»««,«,«, 

C 

IMPLICIT  R£AL»8(A-H.P-Z) 

REAL'S  Ad0.10).B(10.lO).C(10.10).EIGO(20).EIGV(10.10).EIGOI(20). 
IP (10. 10).F3AVE(10. I0).BDEL(10. 10 ) .FDEL( 10 . 10 ) .UM8 (10 . 10). 
2 WC 1  ( 1 0  ) .  WC3  d  0  > .  WC4  d  0  ) .  UCS  d  0  ) .  F  d  0  .  1  0  ) .  CV  <  1 0  .  1  0  ) .  WM9  (1 0  .  1 0  ) . 
JUNITYU0.  1 0  ).  W<2000  ).  SVM1  ( 2000).  SVMAX  KZOOOJ.WMlOd  0.10). 
«WM3( 10. 10  1.WM5C10.  lOl.UTSLAMdO. I  0 i . VRT( I  0 . 1 0 ) . WM1 1 ( 1 0 . I  0 ) . 
5WK2(2S0).A£FDEL(10. 10) .DtlO. 1 0  ) .  WAREA2  (1 0  . 1 0  ) .  WM12  d  0  . 10) . 
bTEIGRdO).TEIGI(10).TEIGVR(10.10).TEIGVI( 10 . 10 ) .ATI  10. lO).WKJ(ZO). 
7WMb(  10. 10).wm7(10.  10).SVM(2000).EIGVD(10.  10  )  .S3  ( 10  )  .SVMAX  (2000  ) 

OIMENSION  COM(10).TITLE(20).WP(2000).SVMP(2000) 

COMPLEX" 162 ( 10 . 10 ) .Zl CIO ) ,ZZ 1 10 . 10 ) . Z5  C 1 0 ) . Z« (10 . 10 ) .Z5 ( 10 ) • 
1EIG(10).V(10.10).EIGD(10).EIGOD(10).E(10.10).VD(10.10). 
Z    UNITYCdO.lOl.ZN.VIFdO.  10)  .  E  IGREC  (  10  ) .  VRECON  (  1  0  .  10). 
3    FCUO.  10) 

REAL-8    WMK10.  10).WK1(20).WK4(20)  .ABF(  10.  10  )  .  SLAMDA  (  2  0  .  20  )  . 
1WMZU0.  10)  .Sl( 10 ) .WK(20 ).VR( 10.  10).S2(10).WC2(10).WKAREA(2S0). 
2WM4C10.  10).WAREA  1(250)  .VSAVEdO.  10).VRS(10.  10).SF!10).UIF(10.10) 

INTEGER    IWK(IO).  ICTRdOl.N.M.L.  I  FEED 


C«««»»»»i«. 

l»afMHMM*MMMI 

.««.««« 

C 

c 

INITIALIZE    ALI 

c 

CliMMttKtfM*. 

<«»• ■«! 

lammim 

c 

DO    1     I     = 

1.10 

IWK(I)     = 

0 

ICTR(I)     : 

=    0 

WC 1 ! I  )     = 

0.D0 

WCZ ( I  )    = 

0.D0 

WC3d)    s 

0.D0 

WC4(I)     = 

0.D0 

WC5d)    = 

0.D0 

SKI)    =    i 

3. DO 

S2( I  )    *    i 

J. DO 

S3(I  )    = 

D.DO 

TEIGR(I) 

=    O.DO 

TEI3KI  ) 

=    O.DO 

COM(I)    = 

O.DO 

DO   2    J    = 

1.10 

A(I  .J)    = 

O.DO 

Bd.J)    = 

0.00 

Cd  .J)    = 

O.DO 
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0(1. J)    '   o.oo 
PCI. Jl    =    0.00 

evu  -j)  =  o.oo 

SLAMOA(I.J)     =     0.00 

UTSLAMI.J)    =    0.D0 
«RT    : -j)    =    0.00 
EIGVDd.J]    =    0.00 
VD(I.J)    -    (0.00.0.00) 
V(I.J)    =    to. OO.O. DO! 

vrci.j)  =  a. do 

VRS(I.J)    =    (0.00. 0.00) 

asf (i. j)  -  a. do 

ATI I. J)    =    O.DO 
PCI. J)    =    O.DO 
UNITY (1. J)    =    0.00 

unitycci.j]  =   (0.00.0.00) 
uipci.j]   =  :  do 
mhki.j)  =  o.do 

--:  : : .j)   =  o.oo 

MN3(I.J)    =    O.DO 

---   :  • j)  =  o.oo 

W6CI.J)    =    3.00 

-"i : : . j)  =  o.oo 
-  -  : . j)  =  o.do 
--:  :.ji  =  o.oo 
-~; ' :  ■-, :   =  :.:: 

UMIO(I.J)    =0.00 
MNUCI.J]    =    0.00 

--:::: .j :   =  i.oa 

2  CONTINUE 

1  zz-*~:*lz 

DO   5    I    =    1.20 
DO   5   J    =    1.20 
SLAMDACJ)    =    0.00 
5  CONTINUE 

DO   6    I    =    I.ZO 
WCfl )    =    O.DO 
WKKI)    »    0.00 
HK3CI1    ■    O.DO 
WK4(! )    =    O.DO 

e:go(I)  =  o.oo 

EIGOKIl  =  O.DO 
i  CONTINUE 

DO  7  I  =  1.250 

-<;: i )  =  o.oo 
-<as£ac : i  =  a .oo 
--=£-; ' : )  =  3.00 

7  CC'.'INUE 

oo  3  :  =  i.io 

21(1)  =  (O.DO. O.DO) 
21(1)  =  (O.DO. O.DO) 
25(1)  -    (0.00.0.00) 
EI0C)  =  (0.00.0.00) 
EIGD(I)  =  (0.00.0.00) 
EIGOD(I)  =  (0.00. 0.00) 
DO  9  J  =  1.10 
E(I.J)  =  (0.00.0.00) 
2(1. J)  ■  (0.00.0.00) 
22  C.  J)  =  (O.OO.  O.DO) 
24r:.j)  =  (0.OO.0.D0) 

«       CONTINUE 

8  CONTINUE 

DO  11    1    <    1.2000 
Zj^-iXll)    »    O.DO 
SVN(t)    =    O.DO 
3VMKI)    =    O.DO 
•-XKI  )    s    O.DO 

wc;    =  o.oo 

'-?111    *    0.0 
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3VMPCI 1=0.0 

11 

CONTINUE 

c 

C»»»( 

« H H H KIDllllD.HIIKMflMlll.XIKXXHXKM. *Mjmjf««KII 

c 

c 

READ  IN  DATA 

c 

CM*»I 

IH« »,».,,..,..,.».»»««« UK  KM  DM H -».».,.,«»« 

c 

BEAD  IN  OUTPUT  TITLE 

c 

GOTO  511 

12 

READU.ISITITLE 

16 

FCRMATI20A4 ) 

C 

READ  IN  NO.  OF  STATES.  NO.  OF  INPUTS.  NO.  OF  OUTPUTS.  TYPE  FEEDBA 

R£AD( 1.10)  N.M.Li IFEED 

10 

F0RMAT(4I2 ) 

r 

READ  IN  A.B.CD 

DO  20  I  «  1  .N 

REAO(l.lS)  (A( I . J ) . J=l ,N) 

20 

CONTINUE 

DO  30  I  =  1  .N 

READ  (1.15)  (B(I.J).J=1.M) 

30 

CONTINUE 

DO  40  I  =.  l.L 

SEADt 1.15)  (C( I . J) . J=l .N) 

40 

CONTINUE 

IF(I=EED.NE.3)GOTO  22 

21 

DO  51  I  =  l.L 

51 

READC1 . 15!(D(I .J).J=1 .M) 

IS 

FORMAT(6F12.5  ) 

C 

READ  IN  DESIRED  C-LOOP  EIGENVALUES 

22 

DO  4]  I  3  l.N 

READ(1.42)EIGD(I ) 

42 

FCRMATC2F12.S) 

41 

CONTINUE 

c 

READ  IN  DESIRED  C  «  V 

DO  4  3  I  =  l.N 

DO  43  J  =  1  .L 

READd  .44)E(J.  I  ) 

44 

FORMAT(2F12.5) 

43 

CONTINUE 

C 

READ  !N  DESIRED  BASE  EIGENVECTORS 

DO  45  I  =  l.N 

CO  45  J  =  l.N 

REAOt 1 .46  )VD(J.  I  ) 

46 

FORMATC2F12.5  ) 

45 

CONTINUE 

c 

C  DISPLAY  INPUT  FOR  CHECKING 

C 

CALL  FRTCMS  CCLRSCRN  ') 

WRITE! 6. 140  1TITLE 

WRIT£(6.52 1IFEED 
52     FORMAT(/5X.  '  »•"««  FEEDBACK  FLAG  =  '.I 

WRITEC6.50) 
50     FORMAT(/10X. ' «»««  A  MATRIX  «»»«'./) 

DO  70  I  =  l.N 

WRITEC6.60)  (AC  I . J ) . J=l  .N) 
60     FORMAT(lX.b(E12.5.2X) ) 
70     CONTINUE 

WRITE(6.30) 
80     FORMAT(/10X. ■ »»«h  B  MATRIX  ««»«'./) 

DO  100  I  =  l.N 

WRITE16.90)  (B(I .J) . J=1.M) 
°0     FORMAT! 1X.6(E12.5.2X) ) 
100    CONTINUE 

WRITE (6 . 1 10  ) 
110    FORMATC/10X. - «»»«  C  MATRIX  x«»«'./) 
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30  110  I  »  l.L 

WRITEC6. 120)  (C(I .J >. J=l .N) 
120    FORmaTC1X.6(E!2.5.2X)  ) 
130    CONTINUE 

WRITE(S.Ul) 

111  FORMAT(/I0X.  '  »■»»  D  MATRIX  •»»«•./) 

DO  112  I  =  l.L 

112  MRITE(b.l20KD(t.J).J*l-M) 

WITECS.  ISO) 

150  FCRMATC//10X.  •»■■■  2ESIREO  BASE  EIGENVECTORS  FOR  USE  IN  »«««■./ 

110X.  •«»«»  <AUTSKV  ALGORITHM  ONLV  »•.»«■//' 

:  2X. 'EIGENVECTOR'. 2X. 'REAL  'ART' . 6X. • IMAG  PART1./) 

□0  151  I  »  l.N 

WRITE(i. 153)1 

153   FORMATc-x. ;;i 

00    151    J    =    l.N 
MRITE(6.1521V0(J.I1 
152        FORMATU3X.E12.S.3X.E12.S] 

151  CONTINUE 

;<10    FCRMATU/.20A6  ) 

^RITE(6.160) 
160    FORMATU10X.  •  «"<  DESIRED  C-LOOP  EIGENVALUES  FOR  USE  IN  «»■.»•./ 

HOX.  ■■»■»  KAUTSKV  ALGORITHM  ONLY  »»««•.  //;x 

2. 'EIGENVALUE' .2X. 'REAL  PART' . 6X. ' IMAG  PART'./) 
00  155  I  =  l.N 
-RI7E(6. 156)1. EIGDU) 
156    FORMAT C7X. I2.4X.E1Z.5.3X.E12.5) 
155    CONTINUE 


C 

c 

C  IDENTITY  MATRIX 

DO  200  I  =  1.10 

UIFII.IJ  »  I. DO 

UNITY! 1. 1  1  =  1.00 

UNITYCtl.I)  *  (1.00.0.00) 
200    CONTINUE 
C     GOTO  531 

C 

c      decide  on  reconfiguration  analysis  or  eigenstructure  design 

c 

gag  ■*•■•■■  iiixit  ********  ******************  mm  ■  ■an  mi*  ********  mji  mm  *  ******  imm 

C  MRITEC6.202) 

C02  FORMAT  (/SX.  •**■>*    ENTER  "I"  FOR  RECONFIGURATION  STUDIES  ***»'  ,/5X. 

C  1  ESTER  "2"  FOR  EIGENSTRUCTURE  ASSIGNMENT  **■./) 

C  »EA2(«.313)IRE;C>. 

C      IF( :p£CCn.E3.2)GOTO  165 

C      ISOLs  =  3 

C  2i_.  =E0CN(A.3.C.F.L.M.N,3DEL.FDEL.EIGREC.VRECCN.SMREC.WREC. 

C  I  ABFDEL) 

C  GOTO  509 


C« 


C  CALCULATE  0-LOOP  EIGENVALUES 

C 

c » » « 

C  SAVE  A  SINCE  EIGRF  DESTROYS  A 

165    DO  201  I  =  l.N 

DO  201  J  =  l.N 

WMl (I.J)  =  A(I . J) 
201    CONTINUE 

CALL  EIGRF(WM1.N.10.0.ZI.Z. 10.KK1.IER) 

DO  205  I  *  l.N 

EIG(I  1  =  21(11 

EI  GO  (I  J  =  DREALtZKI  )) 
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eigoici)  »  oiMAGcrni  n 

COS    CONTINUE 

WRITEC6.210) 
210    FORMATC//10X. '»»»«  OPEN  LOOP  EIGENVALUES  *•**• ,//SX, ' "UREAL*"' . 15X 

N,  '  »i«IMAG»«'  /) 
00  22S  I  =  1,N 
WRITE(«.220)EI0O(IJ.gIGOni) 

220  FORMAT! IX. £12.5. 10X.E12.5) 

225  CONTINUE 

C         RE-INITIALIZE  WM1  WORK  MATRIX 
DO  22  6  I  =  1 .N 
CO  226  J  ■  l.N 
WMi (I.J)  =  0.0 

226  CONTINUE 

C 

C  CHECK  O-LOOP  EIGENVALUES  FOR  CONTROLLABILITY 

C 

□0  260  I  =  l.N 

X  =  CREAHEIGCI  )) 

IFtEIGOKI ).EQ.0.D0)GOTO  227 

CALL  CCNTRLCA.8.UNITYC.N.M. ICTR.EIG. I ) 

GOTO  260 

227  DO  221  J  =  l.N 

WMI ( J. J  )  s  X«UNITY(J. J ! 

221  CONTINUE 

DO  210  J  =  1 .N 

DO  230  <=  1  .N 

WM2(J,K)  =  WMKJ.K)  -  A(J.K) 

UTSLAM(J.K)  a  UNITY(J.K) 
2  30    CONTINUE 
C         CALCULATE  SLAMDHA(I) 

DO  240  J  =  l.N 

DO  240  K  *  l.N 

SLAMDACJ.K)  -    WM2U.K) 
240    CONTINUE 

DC  250  J  =  1 .N 

DO  250  K  a  l.M 

SLAMDAU.K-N)  =  BtJ.K) 

250  CONTINUE 

C  CALCULATE  RANK  OF  SLAMOHA 

II  =  K*N 

CALL  L3VDFCSLAMDA.20.N. II .UTSLAM. 1 0 . N . SI . WK . IES ) 
IF(IER.EQ.33)GOTO  251 
ICTR(I)  =  1 
GOTO  260 

251  ICTR( 11=0 
260    CONTINUE 

C  DISPLAY  CONTROLLABILITY  FLAGS  FOR  O-LOOP  EIGENVALUES 

WRITE(6.300) 
300    FORMATC//5X. 'O-LOOP  EIGENVALUE         CONTROLLABILITY  FLAG  ( 1 =Y )  •  ) 

DO  310  I  =  l.N 

WRITE  (6.  320)  EIGOm.EIGOIU  ).  ICTRd  ) 
32  0    FORMAT (IX. El  0.3. LX.E10 .3 . 'J'  .14X.I2) 
310    CONTINUE 
C        DECISION  FOR  REINSERTING  EIGENSTRUCTURE 

WRITE (6. 3 12) 

312  FORMAT(/10X. ' ««««  DESIRED  EIGENSTRUCTURE  HAS  BEEN  READ  FROM  ««««'. 

1  /lOX.'H"*"  DATA  FILE.  ENTER  "1"  TO  CHG.  NOTE:  CANNOT  »< 

2  /10X. '***»    CHG  IF  KAUTSKY  ALGOR .  WILL  BE  USED.  ENTER  »> 

3  /IOX.'kmkh  "2"  IF  YOU  DESIRE  TO  USE  FILE  DATA  FOR  »• 

4  /lOX.'x*"*  MOORE  ALGOR.  OR  IF  YOU  ARE  GOING  TO  USE  »• 

5  /10X.  *»*"<"  KAUTSKY  ALGORTIHM.  «> 

6  /) 
READ(».313)IEIGEN 

313  FORMATU1) 

CALL  FRTCMSt 'CLRSCRN  '1 
IF(IEIGEN.EQ.2)GOT0  352 
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c 

C  INPUT  DESIRED  C-LOOP  EIGENVALUES 

C 

C****"*»WftW**M*"*MX*MMMtfXtfttMMM»MWK»M»MXM»<l*Xtt*M«M*M«wwM<>«»Mtt**i«*«.4tfMtfMMM 

111    WRITEC6.32S) 

325  FORMATC/SX.  •  «•«•.  ENTER  DESIRED  C-LOOP  EIGENVALUES  **»*• ,/SX, 

1  '■»••  REMEMBER:  ONE  CANNOT  SHIFT  THE     »*»«'. /5X, 

2  '.-.x  UNCONTROLLABLE  EIGENVALUE (S) ««««•, /SX. 

•«»«•<  ONE  MUST  SHIFT  IN  SAME  ORDER  AS    »«««'. /5X. 

4  •,».«  WAS  DISPLAYED  TO  MAINTAIN  PROPER   »MKH'./5X. 

5  •»»«<  CCNTRCLLAS1LLITV  IDENTIFICATION    kxkh- ,/5x] 
DO  330  I  =  l.N 

WRITER. 324  )I 
324    FORMAT!  IX. 'DESIRED  C-LOOP  EIGENVALUE  C'.Il.')  ='./5x. 

1  'REAL  PART  ..ENTER  THEN  IMAG  PART  ..ENTER'./) 

READ (». 326)  X 
READC«.326)  Y 

326  FORMAT(F12.5) 

EIGDCI )  =  DCMPLX(X.V) 
330    CONTINUE 

C 

C         INPUT  DESIRED  VALUE  OF  C«V 

C 

335    uRITECo.340) 

340    FORMATC/    10X. '»■«•«  INPUT  DESIRED  C  X  EIGENVECTOR   »»»»'. /10X. 

1  '...a  for  EACH  EIGENVALUE  IN  COLUMN   «««»'./ I  OX . 

2  •««»«  FORMAT.  »»»»',/) 
DO  350  J  s  I  .N 

DO    350    I    =    I .L 
MRITEC6.J51JI.J 

351  FORMATdX.  'EC  .11.  '  .  '  .  II  .  '  )    =    './5X. 

1  'REAL    PART     ..ENTER    THEN    IMAG    PART     ..ENTER') 

READC345)    X 

REA0C.345)    Y 
345         FCRMAT(F12.S) 

Ed. J)    s    DCMPLX(X.Y) 
350         CONTINUE 

C 

C  DISPLAY  DESIRED  EIGENSTRUCTUPE 

C 

352  CALL  FRTCMSC'CLRSCRN  ' ) 

WRITEC6.360) 

3o0    FORMATC//10X. ' »«»»  DESIRED  EIGENSTRUCTUPE  FOR  USE  IN  MOORE  «•«»'./ 

1  10X.  ■«»»»  ALGORITHMS.  IGNORE  IF  KAUTSKY  ALGORITHM  »»»»'./ 

2  10X.  •»«»«  WILL  BE  SELECTED.  ***»'// 

3  .6X. 'EIGENVALUES' . 12X. 'C  «  V(I)'./) 
DO  38  0  I  =  l.N 

WRITEC6.S70)  EIGDCI ).CE(K. I). K=1.L) 
3  70    FORMATC IX. 2 CE1 0.3. IX ) . IX .8 C /24X . El  0 . 3 . 1 X . E10 . 3 ) ) 
380    CONTINUE 
C 

C 

C      CALCULATE  EIGENVECTOR  ASSOCIATED  W/EACH  EIGENVALUE 

C 

C  OECIDE  ON  MATRIX  OR  ALGEBRAIC  SOLUTION  OR  KAUTSKY  ALOGORITHM 

WRITEC6.385 ) 
385    FORMATC///5X. ' »«*»  ENTER  "1"  FOR  MOORE-MATRIX  SOLN.    »«««'. /5X 


I.  ' M»MH  ENTER  "2"  FOR  MOORE-ALGEBRAIC  SOLN." 

2  •*»»»    ENTER  "3"  FOR  KAUTSKY  ALGORITHM.    » 

j  •«„.,  NOTE:  MOORE-ALGEBRAIC  SOLUTION  IS   « 

4  'mum  REOD  IF  L>M  AND  YOU  DESIRE  MOORE  AL« 

5  •»»»*    GORITHM.  KAUTSKY  ALGORITHM  3EQD 


,/5X. 
./5X. 
,/5X, 
,/SX. 

,/5X. 
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6  '»hhk  FOR  COMPLEX  EIGENVALUE  ANALYSIS  AND""*"' ./5X. 

7  •»-««  INTERACTIVE  EIGENSTRUCTURE  0E3IGN   mum', /5X. 

8  •.»..»  AND  FOR  OUTPUT  FEEDBACK  PROBLEMS.   »«»«'./) 
REA0(».386)ISOLN 

386    FORMAT! II) 

CALL  FRTCMSCCLRSCRN  ') 

IF( ISOLN.EQ. 1 )G3T0  387 

IF(ISOLN.EO.:)GOTO  381 

CALL  KVECT  C  A . B . C . D . E I  GO . F . N . M . L . VO . V . I  FEED ) 

WRITEC6.382) 
381    FORMAT(/5X.  '  «»«  KAUT3KY  ALGORITM  COMPLETED  nmm'./J 

GO^O  50? 
381    CALL  ALGSLNtA.B-C.EIGD.E. UNITY. N.M.L.V.WM3) 

WRITE  Co. 388) 
388    FORMATC/5X. ' ****    ALGEBRAIC  SOLUTION  COMPLETED  »***•./) 

GOTO  481 
337  DO  100  I  =  l.N 
C       REINIT  5LAMDHA  MATRIX 

DO  390  11=  1.10 

DO  390  JJ=  1.13 

SLAMDAdI  .JJ)=  0.00 
390    CONTINUE 
C         REINITIALIZE  WC2 

DO  401  II  =  1.10 

WC2CII )  =  0.D0 
401    CONTINUE 
C  RECOMPUTE  SLAMDHA  MATRIX  FOR  EACH  EIGENVALUE 

DO  395  J  =  l.N 

DO  395  K    =  1  ,N 

X  =  DREALtEIGDCI )) 

SLAMDA(J.K)=  X»UNITYCJ.K)  -  A(J.K) 

395  CONTINUE 

C  AUGMENT  SLAMDA  TO  INCLUDE  B 

DO  39b  J  =  l.N 
DO  39b  K  =  1 .M 
SLAMDA  ( J.  K->N)  =  3CJ.K) 

396  CONTINUE 

C  AUGMENT  SLAMDA  TO  INCLUDE  C 

DO  4  10  J  =  IiL 
DO  4  10  K  =  l.N 

SLAMDA(J'N.K)  =  C(J.K) 
4i0    CONTINUE 
C        CALCULATE  <0     £M)>  TRANSPOSE 

DO  420  J  «  l.L 

X  1  DREALCEtJ. I ) ) 

WCC(J'N)  =  X 
420    CONTINUE 
C  CALCULATE  <  VI!)   W(I)  >  TRANSPOSE 

II  =  N  ♦  L 
C        DEBUG  WRITE  STATEMENT 
C      WRITEC6.421) 

C21    FORMATC5X. ' »•»»  SLAMDA  AUGMENTED  MATR I X»»»« ' . / 1  . 
C      DO  423  Kl  =  I. II 

C      WRITE (6. 422 )(SLAMDA(K1 . K2  )  .K2=  1  .  I  1  ) 
C2C    FORMATUX.6CE10.2.2X)  ) 
C23    CONTINUE 

C 

C  JUMP  TO  680  FOR  UNCONTROLLASLE  EIGENVALUES 

C  (PRESENTLY  PROGRAM  WILL  NOT  HANDLE  THIS  CASE) 

C 

C««»»««».»» MHHMHHIIHVMHMHItHMitMMHItHXMIIlfHIIMMHMKMiattHMMKHllHMMH 

IF(ICTR(I).EQ.0)GOTO    680 
424  CALL    LEQTIFCSLAMDA, 1 . II , 10.WC2. 1 .WKAREA. IER) 

470  DO    480    J    =     1  .N 

VU.I)     =    DCMPLX(WC2(J  )  .0.DO  ) 
430  CONTINUE 

DO    485    J    *     1  .M 

WM3C J. I )     =    WC2(J»N) 
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48S    CONTINUE 
400    CONTINUE 

' • •• •••■••■■■•aa>«i«a««»m<a«u««aagaa<ai 

C 

C        CHECK  FOR  INDEPENDENCE  OF  EIGENVECTORS  COMPUTED  VIA 

C         MOORE  ALGORITHMS 

C 

C  CALCULATE  RANK  OF  V 

C  L3VDF  REPLACES  ' V  WITH  THE  ORTHOGONAL  'V  MATRIX  A  LA  SINGULAR 

C  VALUE  DECOMPOSITION.  THEREFORE  'SAVE'  REAL  PART. 

481  DO  48:  I  «  l.N 

DO  482  J  -    l.N 

van .j>  -  dreal(v(i . ji  i 

VRSCI .J)  a  VRCI .J ) 
VRT(I.J)  a  UNITYCI.J) 

482  CONTINUE 

CALL  LSVDFCVR. lO.N.N.VRT.lO.N.SI.WKl .IER) 
IF(IER.EQ.33)GOTO  4?o 
GOTO  501 
490    WRITEC6.500) 

500  F0RMATC//5X. ' """"EIGENVECTORS  ARE  NOT  INDEPENDENT.  MUST  »«««'. /5X. 

1  '»««  CHANGE  C  X  EIGENVECTOR  ( I  )  OR  CHG  IN-  «"«"'./) 

IFUSOLN.EQ.31GCTO  680 
GOTO  3  35 

C 

C        CALCULATE  FEEDBACK  GAINS 

C 

501  CALL  LINV;=(VRS.N. 10.WM4. 1 . WAREA1 . IER ) 

WRITEC6.507) 

507  FORMAT(/5X. •""»«  EIGENVECTOR  MAT  HAS  BEEN  INVERTED.  F  GAINS  NEXT  " 

l«»a',/) 

CALL  VMULFF C UM3  . WM4 .M.N.N.10.10.F.10.IER) 
WRITEC6.508) 

508  F0RMATC/5X. '»»«»  r    GAINS  COMPUTED  »«»»•./) 
C        ASSIGN  PROPER  SENSE  TO  FEE33ACK  GAINS 

DO  506  I  =  l.M 

DO  50  6  J  =  l.N 

FCI.J)  •  -  FU.JJ 

506    CONTINUE 

c 

C  CALCULATE    A    -    BF    OR    A    ♦    EFC    OR    A    •    B«INV(I    -    FD)»FC 

C 

509  IFUFEED.EQ.l  1GOTO   513 

IFdFEED.EQ.OOCTO   514 

CALL  VMULFF (F.C. M.L.N. 10. 10.WM7. 10. IER) 
CALL  VMULFF (F.D.M, L.M. 10. 10.WM8. 10. IER) 
DO  516  I  =  l.M 
30  5 1 6  J  a  l.M 

516  WM9U.J)  a  UNITYCI.J)  -  WMS(I.J) 

CALL  LINV2F(WM9 .m. 10.WM10.0.WAREAC. IER) 

IF(IER.NE.i:?)GOTO  518 
WRITE (6. 51?) 
519    FORMATC/SX. ' »»«»  I  -  FD  IS  SINGULAR.  RESULTS  ARE  INACCURATE  »»«"• 

1  /) 
518    CALL  VMULFFCWM10.WM7. M.M.N. 10. 10.WM11 . 10. IER) 

CALL  VMULFF (B.WM11 .N.M.N.IO.IO.WMICIO.IER) 
DO  517  I  a  l.N 
DC  517  J  a  l.N 

517  ABF(I.J)  a  A(I.J)  •  UHlZd.Jl 

GOTO  51C 
514    CALL  VMULFF(3.F.N.M.L. 10. 10.WMS. 10.IER) 

CALL  VMULFF ( WM5 .C.N. L.N. 10. 10. WM6 . 1 0 . IER ) 
DO  515  I  a  l.N 
DO  515  J  a  l.N 
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515    ABF(I.J)  *  A(I.J)  •  WM6(I.J) 

GOTO  512 
513    CALL  VMULFF(B.F, N.M.N. 10. 1 0 . WM5 . 10. IER) 

DO  5 1 0  I  =  1 • N 

DO  510  J  =  1  .N 

ASF  CI.  J)  =  AC  ,J)  *  UM5CI  -J) 

510  CONTINUE 

C 

C      CHECK  FOR  CONSERVATION  OF  C»V  DURING  0E3IGN  ITERATIONS 

C 

IF(I30LN.EQ.3)GOTO  512 

511  CALL  VMULFFCC.VRS. L.N.N, 10. 10. CV. 10. IER ) 

512  WRITE(6.520) 

520    FORMAT!/. ' ****    IF  SINGULAR  VALUE  ANALYSIS  DESIRED.  ENTER  "1 »' 

1./.       '<4.«  OTHERWISE  ENTER  "2"  »*»»• 

2) 

READ(».530)ISVA 

530  FORMATtll) 

CALL    FRTCMSCCLR3CRN    ') 
IF<ISVA.EQ.2)GOT0   540 

C 

C  SINGULAR  VALUE  ANALYSIS  OF  DESIGN 

C 

C31  FC1.1)  =  -16.18705 

C  FU.2)  =  3.5569 

C  F(liS)  =  77. 9429 

C  F(  1,4)  a  -61 .009 

C  Pit, 1 )  =  -0.0531? 

C  FCIl  =  -2.61465 

C  F(2,3>  =  .20053 

C  F(2.4)  =  -15.58603 

531  CALL  SVAtA.B.C.D.F.UNITY.N.M.L.W.SVM.SVMAX.SVMl . SVMAX1 . I  FEED) 

C 

C  DISPLAY  RESULTS 

C 

540    CALL  FRTCMSC 'CLRSCRN  ') 
WRITEC6.600 ) 

600  FORMATC///15X.  '***»•*****    0ESIGN  RESULTS  **»»*»***•  .//  ) 

IF( ISOLN.EQ.3 1GOTO  633 

632  WRITE(6.601) 

601  FCRMATC//5X,  '  »»»»  W  MATRIX  COMPUTED  DURING  MOORE  SOLN  ««•.»'/) 

DO  602  I  =  l.M 

WRITEC6.603KWM3U  ,J).J'1.N) 
603         FORMAT! 1X.6(E12.5. IX) ) 

602  CONTINUE 

633  WRITEC6.631) 

631    FORMATC//5X.  '  «<»•«  C-LOOP  MATRIX.  A  ♦  BF  »«««•,/) 

DO  640  I  =  1  .N 

WRITE(6.603)CA3F(I , J  )  . J  =  l ,N) 
640    CONTINUE 

WRITEI6.650) 

650  FORMATC//5X.  '  «•"««  FEEDBACK  MATRIX  •«««'.//) 

DO  6  70  I  =  l.M 

WRIT£(6.660)(F(I.J).J=1.L) 
660    FORMATC1X.5C2X.E12.5  )  ) 
670    CONTINUE 
C  SAVE  'F'  SINCE  LSVDF  DESTROYS  F 

DO  651  I  =  l.M 

DO  651  J  =  1  .L 

651  FSAVECI . J )  a  F( I , J) 

CALL  LSVDF  (FSAVE.  1  0  .  M  .L  .  UIF  .  1  0  .  0  .  SF  .  WK  .  IER  ) 

X  =  SF( 1 ) 

WRITEC6.6951X 
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695    FCRMATC/5X. 'SPECTRAL  NORM  s  '-EICS) 

CALL  EIGRFCASF.N.10. 1 .  ZS .?«. 10.WK4. IER) 
C        FIND  CONDITION  NUMBER  OF  OESIGN  EIGENVECTOR  MATRIX 

CA_L  C0NDCZ4.N.X) 

WRITEC6.69C) 
6=C    FCRMATC/SX. ' »"*»  OESIGN  EIGENVECTOR  MATRIX  •«•**■./) 

DO  6 "3  I  =  L.N 

WRITEC6.6C0) CZ4C  I .  Ji .  J  =  l  .N) 
oa5    CONTINUE 

WRITEC6.694 )X 
6=4    F0RMATI/5X. •;  NORM  CONDITION  NUMBER  =  '.£12. 5) 
C         NORMALIZE  EIGENVECTOR  MATRIX 

□0  671  J  =  l.N 

X  =  a. DO 

00  67C  I  a  l.N 
67C    X  =  X  -  DREALCZ4C  I .  J)  )«"C  «  DIMAGCZ4CI.  J  )  )*»Z 

CO  6  71  I  =  I.N 
671    Z4CI.J)  =  Z4C1 .J)/DS2RTCX) 

WRITEC6.610) 
610    FORMAT  C  /  5X.  '  "»«*  NORMALIZED  DESIGN  EIGENVECTOR  MATRIX  •.«»«',/) 

DO  630  I  =  l.N 

WR I  TEC  6. 620 HZ4C I . J ) . J  =  l .N) 
6C0    F0RMATC8C 1X.E9.C ) ) 
630    CONTINUE 

CALL  C0NDCZ4.N.XN) 

WRITE (6. 6 94  JXN 

HRITEC6.690) 

690  =0RMAT(/5X. ' "»"»  DESIGN  C-LOOP  EIGENVALUES  »«««'. /1SX. 

1  'REAL  PART' .6X. ■ IMAG  PART'./) 
CO  691  I  =  l.N 
URITEC6. 156)1. Z5II) 

691  CONTINUE 

IF( ISOLN.EQ.3JGOTO  915 

912  WRITEC6.900) 

900    FORMATC//5X.  ■  »»«»  E  =  <CXV>  MATRIX  AFTER  DESIGN  COMPLETE  »""»•,/ 

1SX.  •«»«<  NOTE:  PGM  CHECK  FOR  MOORE  ALGORITHM    «««»•/) 

DO  910  I  =  l.L 

writec6.9c0)ccv( i . j ).j=1 .n) 
9c0      formatcix.6cx.e1c. 5)) 

913  continue 

=  15       ifiisva.eo.ogoto  680 
hri  tec  6. 930) 

930    FORMATC//15X. ■ nana  SINGULAR  VALUE  ANALYSIS  OF  DESIGN  «««•«•,// IX . 

1  •    FSEC  I  ♦  FG  I  ♦  GF' 

2.//.2X.       •  RaD/SEC    MAX  SIG      MIN  SIG      max  3IG      MIN 

3  SIG* ./) 

DO  =4  0  I  =  1. CI 0.10 

-PI  TEC  6. 950)  WCI l.SVMAXCI i.SVMCI 1.SVMAX1CI ) .SVM1CI ) 
95  0    FCRMATC3X.F7.C.1X.4CE1C.5. IX) ) 
940    CONTINUE 

C  GENERATE  DATA  FI^E  FOR  S.V.  PLOTTING 

CALL  SVPLCTCSVM.3VM1 .W) 
MRITEC6.1000) 
1000   FORMATC//5X. •«««»  IF  VOU  ARE  AT  A  TEK618  CONSOLE  AND  DESIRE  ««««•, 

1  /5X.  •««»■•  A  PLOT  OF  MINIMUM  S.V.  OF  THE  RETURN  OIFF  »«»"•. 
Z  /SX.'aaaa  MATRIX  JUST  COMPUTED;  TYPE  THE  FOLLOWING  Naaa'. 
Z  /5x.'»«»«  AFTER  EIGEN3  COMPLETION ««««■. 

4  /5X.'«»««  "PLCT"  FOLLOWED  BY  "DISSPLA  SVPLOT  FORTRAN""" » » • 

5  /) 

680    IFC  IRECON.EQ.OGOTO  960 
WRITE  I  6. 9 70) 

970  FORMATC/5X. '««"»  DAMAGED  8  MATRIX  «»."•./) 

DO  971  I  =  1  .N 

971  WRITEC6.90)(3DELCI .J). J=1.M) 

MRITEC6.972) 
97C    FORMATC/5X. ' "■"«  RECONFIGURED  FEEDBACK  GAINS  »««"•./) 

DO  973  I  =  l.M 
973    WRITEC6.»0)CFOELCI.J).J=1 .L) 

~=: TEC  6. 9 75 ) 
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975  F0RMAT(/5X. •«»««  RECONFIGURED  NORMALIZED  EIGENVECTORS  »»«»'./) 

WRITE(6.6Z0 )( (VRECONt I.J).J=1.N).I=1.N) 
WRITE(6.°76 ) 

976  FORMATt/SX. ' «""»  RECONFIGURED  EIGENVALUES  »*«*■,/) 

WRITEto. 156)(I .EIGRECtI ) . 1=1 ,N) 
WRITE(6.9  77)SMREC.WREC 

977  FORMATC/5X.  '  »•<•"<  MIN  S.V  =  '.E1Z.S.'  »*»» '  ./5X.  *  »h»m  at  FREQ  =  '. 

1E12.S.'  »«»*'■/) 
WRITECS.978) 

978  FORMATC/5X.  '  »««*  RECONFIGURED  C-LCOP  MATRIX  .««»•./) 

DO  979  I  a  1>N 
'79    WRITE(6.603)(A3FDEL(I . J) . J=l .N) 
960    CALL  RE3ULTCA.B.C.F.FDEL.3DEL.Z4.Z5.L.M.N) 

END 

C 

C  SUBROUTINE  3VA  PERFORMS  SINGULAR  VAULE  ANALYSIS  OF 

C  THE  RETURN  DIFFERENCE  MATRIX  OF  THE  DESIGNED  SYSTEM. 

C  IM3L  ROUTINES  REOD :  LEQT1C 

C  EIGENS  SUBROUTINES  REQD:  CMATML.CSVD 

C  CDR  V.F.  GAVITO  VER  1.0   JANUARY.  1986 

C 

SUBROUTINE  SVA(A.3.C.D.F.UNITY,N1 .Ml .Ll .W.SVM.SVMAX.3VM1 .SVMAX1 . 

1  IFEED) 

IMPLICIT  SEAL-8(A-H. P-Z) 

REAL'S  A(10.10).3(10.10).C(10.10J.UNITY(10.10).U(ZOOO ) . SVMt ;000 ) . 

i  sitio.xi.yi.Ftio.ioj.svMAxtzoooj.x.sctioi.svMicooo). 

2  -,vmaxi  c;ooo).wa(  io)  .o<  to.  10) 

COMPLEX"  16ACC10.;0).SC(  10. 10) -CC< 10.  lOl.WMCZtlO.  10J.WMCJU0.  10). 
1  GCtl0.101.UIll0.10)-VI(10.10).RDM(10. 10).wMC4<10. 10). 

Z  WMCS1  10.10).FC(10.10).RDM1(10.10).UI1U0.10).VIH10.10) 

3.  DCtlO.10) 

COMPLEX" 16  WMC1 (10. 10).UNITYC(10. 10) 

INTEGER  N1.M1 ,L1 . IFEED 

CO  10  I  '    1.10 

MAC  I )  =  0.D0 

SKI  )  =  0.D0 

S2CI1  =  0.D0 

DO  10  J  =  1.10 

ACCI.J)  =  (0.00.0. DO) 

RCM(I.J)  =  (0.D0.0.D0) 

RDM1 (I.J)  =  (O.DO.O.DO) 

CCtI .J)  =  (0.DO.O.D0) 

UI (I.J)  =  (0. DO. 0. DO ) 

VI  ( I  .J)  =>  (0. 00.0. DO) 

UI1 (I. J)  =  (0.D0.0.D0) 

VIKIfJ)  =  (0.D0.0.D0) 

UNITYC(I.J)  =  (O.DO.O.DO) 

WMCKI.J)  =  (O.DO.O.DO) 

WMC2CI.J]  =■  (O.DO.O.DO) 

WMCJtI.J)  =  t O.DO.O.DO) 

WMM(I.J)  =  (O.DO.O.DO) 

WMC5U.J)  =  (O.DO.O.DO) 

SCtl.J)  =  (0.C0.0.D0) 

DC(I.J)  =  tO. DO. 0. DO) 

GCtl.J)  =  (O.DO.O.DO) 

FC(I.J)  =  to. DO. 0. DO) 
10     CONTINUE 

DO  45  I  =  1 .Z000 

SVMtl  )  =  0.00 

SVMAXt I )  *  O.DO 

SVM1 ( I )  a  O.DO 

SVMAXt I )  =  O.DO 
45     CONTINUE 
C  FILL  UP  COMPLEX  MATRICS  WITH  PROPER  DATA 

DO  100  I  =  1.N1 

UNITYC(I.I)  =  (1. DO. O.DO) 

WMCStl.I)  =  t  1.00.0.001 
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DO  100  J  =  l.Nl 

X  =  A(I ,J) 

AC(I.J)  =  DCMPLX(X.O.DO) 
100    CONTINUE 

DO  COO  I  =  l.Nl 

co  coo  j  =  1 .mi 

X  =  BCI.J) 

v  =  =(J. I  ) 

SC(I.J)  =  OCMPLX(X.O.DO) 

FC(J.I)  =  DCMPLX(Y.O.DO) 

coo   continue 

DO  300  I  =  1.L1 
DO  300  J  =  l.Nl 
X  =  C( I . J) 

CCCI. J]  =  DCMPLX(X.O.DO) 
300    CONTINUE 

do  iio  :  =  i .li 
do  cio  j  =  i .mi 

CIO  DCC I. J)  =  DCMPLX(OU.J).O.DO) 

C  AUGMENT  (IF  RECD)  C  TO  INVOKE  A  SQUARE  RETURN  DIFF  MATRIX 

C  PRESENTLY  THE  PROGRAM  AUGMENTS  WITH  THE  IDENTITY 

C  IF(L1.EC.N1)G0T0  350 

C  INDEX  =  Nl  -  LI 

c    co  ::s  j  =  i. index 

C      CCU-H.J'Ll  )  =  (I.DO.O.DO) 

CCS    CONTINUE 

350    w(l)  =  1.0-01 

C        DISPLAY  AUGMENTED  F  MATRIX  FOR  SVD 

C      WRITECi.310) 

CIO    FORMAT! 1SX. ' >«««  AUGMENTED  F  MATRIX  FOR  SVD  COMP  »««•',/) 

C      DO  HI  J  »  l.Nl 

C      DO  311  K  =  l.Nl 

C      XC  =  DREALtFC(J.K)  ) 

C      X3=  DIMAGCFCt J.K) ) 

C      WRITE(S.31C)J.K.XC.X3 

C1C    FORMATCCX. 'FCC  .IC  .  '  .IC.  '  )  =  -.EICS.'  ♦  J'.E1C5) 

Cll    CONTINUE 

■  CO  500  I  =  1.210 

DO  400  J  =  l.Nl 

DO  400  K  =  1 .Nl 

X  =  WCI  ) 

MMCKJ.K)  =  OCMPLXCO.DO.X)  «  UNITYC (J.K)  -  AC  (J.K) 
4C0    CONTINUE 

C         IMPORTANT  NOTE 

C        »    LEQT1C  DESTROYS  WMC1  AND 

C         »  REPLACES  UNITYC  WITH  THE  INVERSE" 

C         »   OF  WMC1  » 

CALL   LECTlCfWMCl .Nl . 10.UNITVC.N1 , 10.0.WA. IER  J 
C  WRITE(6.401) 

C01         FORMATdX.1     <SI    -    A>-1     './) 
C  00    40C    J    =    l.Nl 

C  WRITE(».4100XUN1TYC(J.K).K=1 .Nl ) 

COC         CONTINUE 

CALL    CMATML (UNITYC. EC. Nl .Nl  .Ml  .WMC3  ) 

CALL   CMATML(CC>4MC3  -LI  .Nl  .Ml  .GO 
C  COMPUTE    <F>    »    <G> 

C  DO    8000    J    =1. Ml 

C  WRITE(6.4100)(FC(J.K) .K=l .Nl ) 

COOO       CONTINUE 

IrdFEED.EQ.  1  JGOTO   410 

IFdFEED.EO.OGOTO   410 

DO   4 1 C    J    =    1 . LI 

DO  4  1C  K  »  1  .Ml 
41C    GC(J-K)  =  DC (J.K)  ♦  GC(J.K) 
4  10    CALL  CMATML ( FC.GC.M1 . LI .Ml ,WMCC ) 
C      WRITE(6.4000 ) 

COOO   FCRMATUX.  '  :SI  -  A>  »«-l   »  3-./) 
C      DO  4001  J  =  1 .Nl 
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C      WRITE(6.4100)(UMC3(J.K).K=1.M1 ) 

C100   FORMA7(8(E9.2. 1X.E9.2 ) ) 

COOl   CONTINUE 

C      WRITE!6.5000) 

COOO   FORMAT ( IX. 'C  «  INV<SI  -  A>  »  B'./l 

C      DO  5001  J  =  1 .Nl 

C     WRITE(6.4100HGC(J.K)  .K  =  l  .Ml  ) 

COOl   CONTINUE 

C      WRITE (b.6000) 

COOO   FORMATdX.  '  F  «  G  •  ./  ) 

C      30  6001  J  =  1  .Ml 

C      -RITE  (6.  4  100  )(WMC2( J.K  )  .K=l .Ml  ) 

COOl   CONTINUE 

C  COMPUTE  <G>  «  <F> 

CALL  CMATMLCGC.FC.L1 .Ml .LI .WMC4) 
C  RESTORE  THE  COMPLEX  IDENTITY  MATRIX 

DO  450  J  -    1 .Nl 

DO  450  K  =  1 .Nl 

X  =  UN  I  TV ( J. K) 

UNITYC(J.K)  =  DCMPLX(X.O.DO) 
450    CONTINUE 
C         COMPUTE  <I>  ♦  <F>  «  <G> 

DO  600  J  =  1 .Ml 

DO  600  K  »  1.M1 

RDM(J.K)  =  UNITYC(J.K).  ♦  UMC2  (  J  .  K  ) 
600    CONTINUE 
C  COMPUTE  <I>  ♦  <G>  »  <F> 

DO  650  J  =  1 .LI 

DO  650  K  *  1 .LI 

RDMKJ.K)  =  UNITYC(J.K)  •  WMC4(J.K) 
650    CONTINUE 
C      WR!TE(6.610 )I .W( I ) 
CIO    FORMAT(2X. 'W( '  . 12. '  )  »  '.£12.5) 
C      WRITEC6.611) 

Cll    FORMATI2X, •»»«»  RETURN  DIFFERENCE  MATRIX  »«"«'./) 
C      DO  612  J  *  1 .Ml 
C      DO  6  1 2  X  a  1  .  M 1 
C      X1=CREAL(RDM( J.K) ) 
C      Y1=DIMAG(RDM( J.K  I  ) 
C      WRITE(6.613)J.K.X1 .VI 

Cll    FORMAT! IX. 'RDM  ( •  .  12 . '  .  '  .  12 . '  )  »  '.E12.S.'  •  J'.E12.5) 
C12    CONTINUE 
C        COMPUTE  C3VD  OF  <t>  ♦  <F>  «  <G> 

CALL  C3VDCR0M. 10. 10. Ml, Ml. 0. Ml. Ml. SI. UI. VI) 
C  COMPUTE  CSVD  OF  <I>  •  <G>  »  <F> 

CALL  CSVD(RCM1.10.10.L1.L1.0.L1.L1.S2.UI1.VI1) 
C      WRITEC6-800 )I 

COO    FORMATI/5X. 'SINGULAR  VALUES  FOR  MC.IZ.'l  ='./) 
C      WRITE(6.700)(51(J).J=1.L1 ) 
COO    FORMATC1X.6CE12.5. IX) ) 
C      WRITE  (6.615)  SKL1) 
C15    FCRMAT(/2X. 'MIN  SINGULAR  VALUE  =  '.E12.5) 

SVMAXt  I  )  =  SU1) 

SVMAX1 ( I )  =  S2(l ) 
IFtSKMl  )  .LE.O.  1GOTO  617 
IF(S2(L1 ).LE.O.DO)GOTO  617 

SVM  (  I  )  =  S 1 ( M 1  ) 
SVM1 (I  )  =  S2(L1  ) 

GOTO  619 

617  WRITE(6.618) 

618  FORMAT(/12X.  '  «««•«»««  RTN  DIFF  MATRIX  IS  RANK  DEFICIENT*"""* 

SVM( I )  =  9.9999990*09 

619  WU  +  1  )  a  M(I  )  *.50 
500    CONTINUE 

RETURN 
END 
C< «■«< «  ««"».«« "»"""""*"*""»»"> 

c 

C  SUBROUTINE  CMATML  (COMPLEX  MATRIX  MULTIPLICATION) 
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c 

C  COMPUTES:  YV  =  AA  »  88 

C  14  =  S  OP  ROWS  IN  AA 

C  Lu  =  a  OP  ROWS  IN  S3  AND  *  OF  COLUMNS  IN  AA 

C  IS  =  a  OF  COLUMNS  IN  3B 

SUBROUTINE  CMATMLCAA.S8. IA.LL. IS.YV) 

COMPLEX" 16  AA(10.10).3B(10. 10>.yY< 10. 10 ! 

IS'ESER  IA.LL.IS 

DO  30  I  =  l.IA 

DO  13  J  =  1.13 

YV(I.J)  =  (0.D0.0.D0) 

DO  10  INDEX  '    l.LL 

YV(I.J)  s  YY(I.J)  ♦  AA(I. INDEX)  »  BBCINDEX.J) 
10     CONTINUE 
CO     CONTINUE 
33     CCNTIsuE 

RETURN 

END 

c 

C  SUBROUTINE  CSVD 

C       COMPLEX  SINGULAR  VALUE  DECOMPOSITION  SUBROUTINE 

C 

SUBROUTINE  CSVD  iA.MMAX.NMAX.M.N. IP .NU.NV.S.U.V) 
IMPLICIT  REAL-8(A-H.P-Z) 

COMPLEX" 16A(MMAX. 1 ) . U(MMAX. 1 ) .VCNMAX. 1 ) 
INTEGER  M.N.IR.NU.NV 

sEAL-8  sc: 

COMPLEX" 16  Q.R 

REAL "8  8(100). C(lOO).TdOO) 

DATA  ETA.TOL/1.5D-8.1.D-J1/ 

NP=N»IP 

N1=N-1 

c 

C   HOUSEHOLDER  REDUCTION 
CC1 )*0.D0 

10     <1*<«1 

c 

C    ELIMINATION  OF  A(I.K).I«K«-1 M 

Z=0.D0 

DO  CO  I=K.M 
CO     Z=Z*DREal(a(I ,K) )««C*0IMAG(A(I .<) )««C 

3(K)=0.D0 

IF  (CLE. TOD  GO  TO  70 

2=DSQRTC2) 

B(K)«Z 

W=CDABS(A(K.K) ) 

O»(l.OG.0.D0) 

IF  (W.NE.0.D0)  C=A(K.K)/W 

A(K.K)=Q«(Z«W) 

IF  (K.EO.NP)  GO  TO  7  0 

DO  50  J=K1 .NP 

O=(O.D0.0.DO) 

DO  10  !=K.M 
30     C=Q-DCCNJG(A( I ,K) )«A( I ,j) 

Q=0/(Z"(Z-w! ) 

DO  40  I=K.M 
40     A(I. Ji=A( I.J)-Q.A(I .K) 
50      CONTINUE 

c 

C    PHASE  TRANSFORMATION 

0=-DCOn_;g(a(X.<)  )/CDA3S(A(K.K) ) 
DO  60  J=K1.NP 
60     A(K. J)=Q»A(K. J ) 

C    ELIMINATION  OF  A(K. J).J»K*C N 
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70    if  ck.eq.n)  go  to  140 
c=o.do 

DO  80  J  =  K1 .N 
8  0     Z=Z'DREAL(A(K.J) )»"C'DIMAGCA(K.J) )»«Z 

CCK1 )=0.00 

IF  (CLE. TOD  GO  TO  130 

Z=DSQRT(Z) 

C(K1 )»Z 

W=CDABS(A(K.K1 ) ) 

C=(l .D0.0.C0  ) 

IF  (W.NE.0.00)  Q=A(K.K1)/W 

AK.K1  IsQ^CZ-W) 

DO  110  I=K1.M 

Qs(O.DO.O.DO) 

CO  <>0  J  =  K1  .N 
90     3=Q*0CONJGCA(K,J) )>A(I,j) 

QaQ/(Z«(Z+W) ! 

DO  100  J=K1.N 
100    A(I.J)=A(I ,J)-a»A(X.JJ 
110    CONTINUE 

c 

C    PHASE  TRANSFORMATION 

Q=-DCCNJGCA(K.K1 ) )/CDA8S(A(K.Kl ) ) 

00  ICO  I=K1.M 
ICO    A(I ,K1 i=A(I .Kl  I'd 
130    <=K1 

GO  TO  10 
C 

C   TOLERENCE  FOR  NS3LIGI3LE  ELEMENTS 
140    EP3=0.D0 

DO  150  K»l .N 

S(K)sStK) 

TCK)sC(K) 
150    EPS  =  DMAXUE?S.S(K)«TCK)  ) 

EPS=EPS»ETA 
C 
C    INITIALIZATION  OF  U  AND  V 

IF  fNU.EO.O)  GO  TO  180 

DO  170  J  =  l .NU 

DO  UO  1  =  1  -M 
160  U(I . J)=(0.DC.1.D0) 
170  UU.  J  )  =  (  1 .00.0.00  ) 
180    IF  CNV.EQ.O)  GO  TO  CIO 

DO  COO  Jat.NV 

DO  190  1  =  1  .N 
190  V(  I .J)  =  (0.D0.0.D0) 
COO  V(J. J)=( 1 .DO.O.DO ) 
C 

C   OR  DIAGONAL  I  CAT  I  ON 
CIO    DO  180  KK=1 >N 

K=N1-KK 
C 

C    TEST  FOR  SPLIT 
CCO    DO  C30  LL»1 ■< 

L»K*l-U. 

IF  (DABSCT(L)  1.LE.EPS)  GO  TO  CO 

IF  (DABS(S(L-1 ) 1.LE.EPS)  GO  TO  C40 
C30    CONTINUE 
C 

C    CANCELLATION  OF  E(L) 
C40    CS=0.00 

SN=1.D0 

L1=L-1 

00  C80  I=L.K 

F=SN»T(I) 

TCI )=CS«T(I ) 

IF  ( DABS ( F1.LE.EPS)  GO  TO  C90 

H»S(I  ) 

W=OSORT(F»r«H»H) 
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S(I)=u 

3S=H/W 
SNs-F/U 

IF  (NU.EQ.O)  GO  TO  360 

30  :so  j«i  >m 

x=dreal:u(j.l: : ) 

v=CB£AL(UCJ.I : ) 

u(j.li  :=;cv?lx;x-cs«v!isn.o.oo) 
253   ucj.n=dcmplx(v«cs-x«sn.c  do 

Coo   if  [iv.sa.N]  30  ~o   :sc 

oo  :?o  j=ni.np 

;=-  _: ..) 

RzA(I.J) 

ACL1.J)=Q»CS-««SN 

273   a( i . j)=s-cs-a»SN 

:3C    CONTINUE 

3    ~ZZ~    r2=  33V.E53ENCS 
2°3    w=S(<) 

IP  EL.EQ.K)  GO  TO  360 

c 

c   cp:3:--  :-:=" 

X=3CL) 

V=SCK-1 1 

3=-!<-l) 

HsT(K) 

F*((Y-H1B(Y*M)*(G-H)>(G*H>)/(2.D0 

3=:s3pt:=«f.i.do> 

:=   F.LT.O.OO]  3=-3 

F= ! ( K-M 1 • ( X-« ) ♦ ( II CF*G 1-H ) «H ) /X 

3   :=  3"= 

CS»1.C0 

SN=1.D0 

L1=L*1 

OO  350  t=Ll.K 

G=T(I) 

"=S(D 

-=3n-3 

3=33*G 

-=33C9T(H«H.F.F) 

t r : - ;  --- 

C3=F/w 
Ss  =  ~  - 
F=X»C3-3»SN 

3  =  G-C3-:<»3N 

H=V.3N 

yzV>CS 

if  (nv.fo.o;  go  to  jio 
do  300  J=l  .N 
K=D8EAL(VCJ.I-11) 

-i  =  3»EAl_(VCJ.I  )) 

VU.I-1 )=DCMPLX(X«CS-W»SN.0.O0) 

loo   vu.  :=::--_■  --cs-x«sn.o.do i 

::o   -  =  ;33=": =  -=) 

3(1-1 )=H 

C3=f/(J 
3s=H/y 
F=C3-3-SN«v 
X=C3»v-3N»G 

:c  emu.eq.O]  go  to  330 

CO  330  J=1.n 
r>OREAL(UCJ>I-I  )  ) 

H=OREAL(UCJ.I): 

U(J.  1-1  )=DC*PLX(v»C3»wSN.0.O0> 
33  0    U(J. I )=DCMPLX(W»C3-Y"3N.3.D0) 
333    IF  (N.E9.NP)  GO  TO  35C 

DO  340  J=nI .np 

Q=A(I-l.j) 
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R=A(I.J) 

AC  I-  1  ,J)=Q*CS»R'<SN 
340    A(I ,J)=R-CS-Q«SN 
350    CONTINUE 

TCL)=0.DO 

T(K)=F 

S(K)=X 

GO  TO  220 
C 

C   CONVERGENCE 
560    IF  (W.CE.C.DO!  GO  TO  380 

S(K;=-W 

IF  (NV.EQ.O)  GO  TO  380 

DO  370  J  =  l  .N 
370    VU.K)»-V(J.K) 
380    CONTINUE 
C 
C   SORT  SINGULAR  VALUES 

DO  450  K=l .N 

G  =  -l .00 

J  =  K 

DO  390  I=K.N 

IF  (S(I I.LE.G)  GO  TO  190 

G=S(I) 

J=I 
390    CONTINUE 

IF  (J.EO.K)  GO  TO  450 

5CJ)=S(K) 

SCX)=G 

IF  (NV.EO.O)  GO  TO  410 

DO  400  1=1 .N 

Q=V(I.J) 

V(!>J)>V(ItK) 
400    V(I-K)=Q 
410    IF  (NU.EQ.O)  GO  TO  430 

DO  4;0  1=1 .N 

Q=U(I.J) 

UU.J)"UCI.K1 
420    U(I.K)=Q 
430    IF  (N.EQ.NP)  GO  TO  450 

DO  440  I=N1 ,NP 

0=A(J.I1 

A(J, I )=A(K. I ] 
440     A(K.I)=Q 
450    CONTINUE 
C 
C   BACK  TRANSFORMATION 

IF  (NU.EQ.O)  GO  TO  510 

DO  500  KK=1,N 

K=N1-KK 

IF  (B(K).EQ.O.DO)  GO  TO  500 

Q=-A(K.K)/CDABSCA(K.K) ) 

DO  460  J=l .NU 
460    UtK, J)=Q»U(K. J) 

DO  490  J=l .NU 

Q=C0.DO.0.DO) 

DO  470  I=K.M 
470    Q  =  0«DCONJG(A( I .K  )  !-U(  I  .  J) 

a=Q/CC0A8S(A(K.K) )"B(K)  ) 

DO  480  I=K.M 
480    U(I .J)=U(I.J)-Q»A(I .«] 
4<>0    CONTINUE 
500    CONTINUE 
510    IF  (NV.EQ.O)  GO  TO  570 

IF  (N.LT.2)  GO  TO  570 

DO  560  KK=C.N 

K=N1-KK 

K1=K»1 

IF  CC(Kl).EQ.O.DO)  GO  TO  560 
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Q=-DC0NJG(A(K.K1 ) )/CDA8S(A(K.Kl ) ) 
DO  520  J  =  l .NV 

520   vcki .j>=a»v(Ki.j) 

DO  550  Jxl.NV 

Q=(O.D0.0.OO) 

DO  550  I=KI.N 
530    0=Q-A(K.I)«vd.J) 

0=0/(CDABS(A(K.K1 ! )»C(K1 ) ) 

DO  540  !=K1.N 
540    Vd.J)=V(I • J)-Q"DCONJG(A(K. [ ) ) 
550    CONTINUE 
560    CONTINUE 
570    RETURN 

END 

C  SUBROUTINE  SVPLOT:  GENERATES  DATA  FILE  FOR  USING  DI33PLA 
C  TO  PLOT  MINIMUM  SINGULAR  VALUE  OF  THE  RETURN 

C  DIFFERENCE  MATRIX  VS.  FREQUENCY 

C 

SUBROUTINE  SVPL0T(SVM.SVM1 .W) 

REAL "8  w(200  0  )  .SVM(2  000)  .SVM1  croooi 

DIMENSION  UP  ( 2000  ).SVMP(2  000)  .SVM1P(20  00  ) 
C  CONVERT  DATA  TO  SINGLE  PRECISION  FOR  DIS3PLA  COMPATIBILITY 

DO  10  I  =  1.2000 

W? ( I )  =  SNGL  C  u ( I  )  ) 

SVMP(I)  =  SNGLtSVMCIl) 

SVM1?( I )  =  SNGLtSVMI ( I ) ) 
10     CONTINUE 

00  20  I  =  1.2000.2 

WRITE(7.30)WCI  J.SVMPd  J.SVMlPd  l.WPd'l  I.SVMPU-1  ).SVM1P(I*1  ) 
30     FORMAT(3(E12.S. 1X.E12 .5  )  ) 

20      CONTINUE 

RETURN 
END 

CMMNMM""MM"HM**"M»l'MMMH«NM*«M««»»M«tt»M"«MM"MM"MMttK«M**WM«WN«l*HM""MtfM«MMtt 
C  » 

C  SUBROUTIN  KVECT:  CALCULATES  FEEDBACK  GAINS  VIA  » 

C  KAUTSKY,  ET.  AL.  ALGORITHM  (1985)  » 

C  « 

SUBROUTINE  KVECTCA.B.C.D.EIGO.F.N1.M1.L1.VD.V.IFEED) 

IMPLICIT  REAL-8(A-H.?-Z) 

REAL'8  A(10.10).3tl0.10).C(l0.10).Ffl0.10).UT(10.10).CS(10.10). 

1  3(10).WKC20).SS(10. 10 ).SM(10. 10 1.VTC10. 10) .  CUT( 1 0 . 1 0 ) . SC ( 1 0 ) , 

2  RZUOi  lOJ.UAPEAl  (25  0  i  .WAREA2  (250  )  .D(  10  .  10  1.CSS110.  10). 

3  UTVC  lO.'.O).RTINV(lO.lO)  .VI  (  10.  10).uK4(2  0).CSS;nv<  10.10). 

<•    Sl(10).S2dO).WKl  (20).HK2(20).WA(20).SB(10).WK3(50).BGI(10.  10). 

5  vdst(io.io).vdist;io.io).u(io.io).uc(1o.ioi.uit(io,  ioi.uhio.ioj, 

6  UNITYdO.  10  ).  W(2000).SVM(  2000  ).3VMAX(  2000  l.SVMK  2000)  . 

7  UOT(10.10).RNULL(10.10).SVMAX1(2000).SPI(10.10).BSI(10. 10 ). 

8  SMCdO.  lOl.SVdO.  10)  .3CHK(10.10).WAREA3(25  0).SX(10  ).  CGI  (10. 10) 
COMPLEX" 16  EIGDdO).V(lO.lO)  . UNITYCt  10.10)  .AML(  10.101.UlTCdO.10) 

1  . RNULLC ( 1 0 . 1 0 ) ■ WV ( 1 0 ) . WV 1 C ( 1 0 ) . RES  d  0 . 1 0 ) . VSAVE (10.10). 

2  VDS(lO.lC).VDISdO.lO).UVDSdO.lO).VVOSdO.lO).UVDISdO.lO). 

3  VVDIS(10.10).21.VD(10.1O).E:GDM(l0.10).EVIdO.10).VEVI(lO.lO). 

4  VMA  (  1  0  .  1  0  )  .  UOTC  (  1  0  .  1  0  )  .  UTVC  (1 0  .  1  0  )  .  R2  I NVC  (  1  0  .  1  0  )  .  FC  :  1  0  .  1  0  )  . 

5  VDK10.  10)  .VIVdO.  10).UOC(10.  10).C0TCd0.10).ClTCd0.10). 

6  RCUdO.  lOl.SPICdO.  lOl.IINVCCdO.  10).FCZ(  10.10  J.DCFCdO.  10)  . 

7  =C3dO.  10)  .DC!  10.  10).RZC(10.  10).CINV2(  10.  101.DCFCK  10.10) 
8-XVSdO.  10).  XV  (10.  10).XVU(10.10).XW(10.10).SXC(10.  10). 

9  XOTdO.  lOl.SXXdO.  10).RUd0.10).RV(10.10).RVV(10.10).RXd0.10) 
COMPLEX"  16    RXZdO.  lOJ.XVTdO.  10).XE(10.10).AC(  10.  10  ).AX(  10.  10). 

1    XCHECKdO.  lOl.RVUdO.  10  ) 

INTEGER   Nl  .Ml  .LI  .  IWKCIOCO)  •  IC(10).IDG(1  ).  IDG  It  20).  ICK20). 
1     IROUdO.  10  ).  IFLT(IO).  IELEMt  10)  .  ILOG.  I  FEED 

REAL"*    3RCEJ.EP3.SWV(  10  !  .VLB(  100  )  .VUBdOO  ).RA(20.40).Gd).DF(20). 
1    UK3(3000)  .XBJdOO  ).C0BJ.GC(20)  .E . UR . UC . EPSR .ER3C . El .E2 
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CHARACTER»80    TITLE 

CHXIOIiaMXIKIKMIIKXHMIIXKXKIItlKllftMMtOIIIIOIH « 

C 

C         INITIALIZE  MATRICES  S  VARIABLES 

C 

EPS  =  0. 

E  =  0. 

El  =  0. 

EC  =  0. 

DO  10  I  =  1.10 

5(1!  =  O.DO 

SI t I )  =  0.D0 

seen  =  o. co 

5B(I)  =  0.00 

sen )  =  o.oo 

SXCI)  =  0.00 
WVCI)  =  0.00 
OF  ( I  )  =  0  . 

IFLTd  )  =  0 
SW ( I )  =  0 . 
DO  10  J  =  1.10 
UT(I.j)  s  O.DO 
VI ( I .J)  =  0.D0 
CUT(I.j)  =  0.00 
CSU.J)  =  3.C0 
SMd.J)  =  0.00 
AC (I. J)  =  (0. DO. 0.00) 
SPICI.J)  s  0.00 
23  I (I. J)  =  0.00 
VDICI.J)  =  (0. DO. O.OO) 
EI  COM (I. J)  =  (0. DO. 0.00) 
EVId  ,J)  s  (0.D0.0.D0) 
VEVICI.J)  *  (0.00, O.OO) 
VMA(I.J)  =  (0.00.0. DO) 
UTV(I.J)  =  0.D0 
UTVCCI.J)  =  (0. D0.0.D0) 
VDS(I.J)  =  0.00 
VDST(I.J)  a  0.00 
VDIS(I.J)  =  0.00 
vDISTd  ,  j)  s  0.00 
U(I.J)=  0.D0 
UO(I.J)  =  0.D0 
UOT(I.J)  =  O.DO 
UOTC(I.J)  =  (O.DO. O.DO) 
UKI  .  J)  =  O.DO 
U1T(I ,J)  =  0.00 
UITC(I.J)  =  (O.DO. O.DO) 
RNULLCI-J)  =  O.DO 
RES(I.J)  =  (O.DO. O.DO) 
RZINV(I.J)  =  O.DO 
RCINVC(I.J)  =  (0.O0.0.D0) 
UNITY! I .J)  »  O.DO 
AML(I.J)  =  (O.DO. O.DO) 
SMC (I. J)  =0.00 
SV(I .J)  =  O.DO 
BCMK(I.J)  =  O.DO 
RA( I.J)  =  0. 
IROW(I.J)  =  0 
UNITVC(I.J)  =  (0.00. O.DO) 
COTC(I.J)  =  (O.DO. O.DO) 
ZINVCC(I.J)  =  (O.DO. O.DO) 
CSS( I.J)  =  O.DO 

cssiNVd.j)  =  o.oo 

CINVZ(I.J)  =  (0.00. O.DO) 
EPICd.J)  =  (O.DO. O.DO) 
RC'J(I.J)  =  (O.DO. O.DO) 
FCZ(I.J)  =  (O.DO. O.DO) 
DCFC( I.J)  =  (O.DO. 0 .DO ) 
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OCFCKI.J)    =    (0.30.0.30) 
FCC  I. J)    -    CO.  00.  0.30) 
FCSCI.J)    =    (0.30.0.  DO) 
XVU(I-J)    =    CO. 30. 0.301 
XVV(I.J)    =    (0.00.0.30) 
KOT(I.J)    =    (C. 30. 3. 30) 
SXC(I.J)    =    (0.30.0.30) 
SXX(I.j)    =    (0.30.0.30) 
RU(I.J)    =    (0.30.0.B0) 
RVCI .J)    =    CO. 03. 0.001 
RW(I.J)    =    (0. DO.  0.30) 
RVU(i.J)    =    (0.33-0.30) 

sxc.j;   =   (o.oo.o.  do: 

RXZU  .J)    =    CO. OO.O. DO! 

10  CONTINUE 

::  iz   i  =  i -co 

-<: I )    =    3.30 
WK1U)    =    O.OO 
GC(I)    =    0. 

wa(i:  =  o.oo 

MK<S  (!)    =    0 .  00 

13  WK3U )    =    3.33 

oo  ii  :  =  i . n i 

DO    11    J    =    1 .Ml 

3s:c  .j  )  =  3: 1  .j) 

11  BS(I.J)    =   SCI. J) 

3C    '.3    I    =    1.350 
WRSA31I1    s    0.00 
-i=EA3Ci:    =    0.30 

::         -iSEAic:   =  3.00 

30  5  I  =  1.  130 
VLB ( I )  =  0  . 
VUBCI)  =  0. 
5      KBJtll  *  O. 

30  14  I  =  1.1000 

14  I'-K(I)  =  0 

30  15  I  =  1.5000 

is   ukjc:  )  «  0.0 

3 • - »■«»■■« 


c      =e:nit  ut.  build  complex  a  3  fimo  svd  of  s 

c 

3 - »»»« »<■■« 


3C  33  I  s  1.N1 
UNITY ( I. I)  =  1.00 
CUT(I.I)  =  1.D0 
UNITVC(I.I)  =  CI. DO. 0.00) 
UT(I.I)  =  1.00 
33  33  J  =  1.N1 

;o    ac(i.j)  =  ocmplxca: : . ji .o.oo ) 

CALL  LSVDF(3S.10.N1.M1.UT.10.N1.S.WK.IER) 

CALL  =A^<3:S3.UT.S.N1,M1 . U0TC.U1TC.R3INVC. IRANK.EGI ) 

CALL  FRTCMSC 'CLRSCRN  ') 

IF(IER.NE.33)GOTO  35 

-»:"E  :  6 .34  .  :  =  i-.< 

34  FORMAT  ( /SX.  •  »»■■  3  13  sank  DEFICIENT.  RANK  =  -.I3.'  •«-•'./) 

GOTO  4  3 
C        DECOMPOSE  3 
C  FIND  U 

35  IRANK  =  Ml 

DO  31  I  =  1-N1 

33    31    J    =     1.N1 
31  U(I.J)    =    UT(J.I) 

3  FIND    UO    S    UO    T5i>-3=33E 

DO   33    I    »    l.Nl 

33    33    J    =    1.M1 

UO(I.J)    =    U(I .J! 

UOC(I.J)    =    DCMPCXCUOCI . J) .0.D0) 

U0T(J.I )    s    III  I, J  J 
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22  UOTCCJ.I)  »  DCMPLXCUU  .J)  .O.DO) 
C  FIND  Ul  3  Ul  TRANSPOSE 

DO  23  I  =  1.N1 
DO  23  J  =  Ml  ♦  1 .Nl 
Ul(i.J)  =  U(I.J) 
U1TCJ-MI. I )  =  UtI . J) 

23  UlTC(J-Ml.I)  =  OCMPLXlU< I .J ) .0.30 ) 

DO  30  I  =  1 .Ml 

DO  30  J  =  1 .Ml 

VIC1.JJ  =  3SCI.J) 
30     CONTINUE 
C         WRITE  U  FOR  DE3UG 
C      WRITE (6. 500) 

COO    FORMATC/5X. ' **»*    u  FCR  B  =  UOV*«T)  mum',/) 
C      DO  550  J  =  1 .Nl 
C      WRITEt6.52SHUCJ.K).K=l  .Nl  ) 
525    FORMATUX.6CE10.3.  IX)  ) 
C5  0    CONTINUE 

C        WRITE  UOT  AND  U1T  FOR  DEBUG 
C      WRITE(a.bOO) 

COO    FORMATC/5X,  '  •<>«•<«  UOT  »««<•,/) 
C      DO  650  J  =  1 .Nl 
C      WRITE(6.525)(U0T(J,K).K=1.N1 ) 
C50    CONTINUE 
C      WRITE16.700) 

COO    FQRMAT(/5X.  '  «x»»  U1T ,/) 

C      DO  750  J  =  1.N1 

C      WRITEC6.S2S)CU1T(J.K).K-1.N1 ) 

C50    CONTINUE 

C 

C        FIND  RZ  =  DIAG<LAMD1  LAMD2  . ...>V«»T 

C 

DO  40  I  =  1 .Ml 
DO  10  J  =  1 .Ml 

40  VTU  .  J  )  =  VI  CJ.  I  ) 

DO  50  I  =  1.M1 
50     SM(I. I )  =  5(1  ) 

CAUL  VMULFF1SM.VT.M1  .  Ml  .Ml  ,  1  0  . 1  0  .  RZ  .  10  .  IER  ) 

DO  41   I  =  1.M1 
DO  41  J  =  1.M1 

41  RZC(I.J)  =  DCMPLX(RZ(I .J) .O.DO ) 

C 

C         COMPUTE  U»SIGMA»V  TRANSPOSE  FOR  PGM  DE3UG 

C 

00  825  J  *  1.N1 
825    SMC (J. J)  =  SCJ) 

CALL  VMULFFCSMC.VT.N1 .  Ml  .  M  1  ,  1  0 . 1 0 . 3V . 1 0 . IER  ) 

CALL  VMULFFCU.SV.N1.M1 .Ml . 10. 10.BCHK.10. IER) 

WRITEtb.800) 
800    F0RMAT(/5X. ' »»»«  U  «  SIGMA  «  VTRAN  ««««',/) 

DO  850  J  =  1.N1 

WRITE(6.52S)(BCHK(J.K).K=1 .Ml ) 
850    CONTINUE 

C>» »«»<«.«.«.«.»■..»«« ».«.>«  »»» »»«.«»» HOOHXK 

C 

C         "SELECT"  EIGENVECTOR  MATRIX 

C         (PROGRAM  EITHER  READS  IN  THE  DESIRED  SET  FROM  SYSTEM  DATA 

C  FILE  OR  WILL  READ  LATEST  DESIGN  EIGENVECTOR  MATRIX  FROM 

C  PREVIOUS  COMPUTATION) 

42  WRITE(6-69) 

69     FORMAT</10X. •  «*»*    PRESENTLY  IN  KVECT.  ENTER  "1"  IF  YOU  DESIRE  »*»« 
l'./lOX.     'nulla  TO  USE  PREVIOUSLY  COMPUTED  EIGENVECTOR  MA-   « 
2./10X.      •»««»  TRIX  OR  ENTER  "2"  IF  YOU  DESIRE  TO  RECOMPUTE" 
3./10X.       •»««•«  THE  EIGENVECTOR  MATRIX.  « 
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4./) 

READ(«.10S0)IOPT 

IFUOPT.SQ.ZIGOTO    67 

DO    68    J    =    l.Nl 

DO    68    <    =    It  Ml 

S£AD(;.6«)V(X.J) 
66     F0RHATC2E12.5) 
68     CCN"!NUE 

CALL  FRTCMSC 'CLRSCRN  ') 

GOTO  oo 
6  7     WRITE (6. 70) 
70     FfflWATC/SX.'*"*  PRESENTLY  IN  KVECT  SUBROUTINE.  3ASE  »»*«■  ,/5X. 

1  'mum  EIGENVECTORS  ARE  FROM  DATA  FILE.     »*«»' ./5X. 

J  •,««-  PRESENTLY  CHECKING  IF  THEV  ARE  MEM-  <•*»«'.  /SX. 

3  ■--»«  SER3  OF  ALLOWABLE  SUP3PACS.  »««»•,/) 

51     DO  75  I  *  1.N1 

DO  75  J  =  1.N1 

75  V(  I . J)  =  VD( I .J ) 

C 

C       CHECK  IF  DESIRED  3ASE  RIGHT  HAND  EIGENVECTORS  ARE  MEMBERS  OF  THE 

C         NULL  SPACE  OF  <U1  TRANSPOSE  «  <A  -  LAMDHA  I  »  I>> 

C 

ICONJG  =  0 
DO  55  I  =  l.Nl 
Zl  =  EIGDCI ) 
00  56  J  =  l.Nl 
DO  56  K  s  1 ,N1 

56  AML(J.K)  =  3Cmplx<a( J.O .0.00)  -  Z1*UNITVC(J.K) 

IFCIRANK.EQ.M1 1GOT0  43 

IV  =  Nl-IRANK 

GOTO  44 
4J      IV=  Nl  -  Ml 
44     CALL  CMATML(U1TC.AML.IY,N1.N1,RNULLC) 

DO  57  J  =  l.Nl 

57  WV(J)  =  VU.  I) 

59     CALL  CMATMLCRNULLCWV.  IY.N1  .  1  .WV1C) 
DO  58  J  =  1  .  IV 

58  REStJ.I )  =  UV1CCJ) 

C        FIND  Z-NCRM  OF  THE  RESIDUAL 
v  <  0.D0 
DO  76  J  =  l.IY 

76  V  ■  V  ♦  DREALtREStJ.  I  )  )•««:■•  DIMAG(RE3(  J  .  I)  )«-Z 

R03J  =  DSORT(Y) 
C  IF  :-NORM  OF  RESIDUAL  IS  OK  —  JUMP  OUT 

IFCROBJ.LE. 1 .D-06  1GOTO  55 

C 

C  IF  EI3ENVALUE  IS  COMPLEX.  THEN  PERFORM  THE  OPTIMIZATION 

C        ONE  TIME  FOR  BOTH  THE  EIGENVALUE  AND  ITS  CONJUGATE. 

C 

IFCDIMAGCZ1 ) .EO.0.D0JGOTO  960 
IF( ICONJG. EQ.l 1GCT0  97 
ICON-G  *  1 
960    WRITEC6. 1C001I.ROSJ 

1000  FORMAT(///5X.  •  «»«■>  RESIDUAL  TOLERANCE  EXCEEDED  FOR  DESIRED    «««« 

1-./5X.         •-.»«  BASE  EIGENVECTOR  NO.  'tis."  ENTERING  ADS 

ZaauM'./SX.     WITH  ROBJ  =  ■.£:;. 5.   '  «« 

3./5X.  •«»««  c-LOOP  EIGENVALUES  HAVE  BEEN  SPECIFIED..  * 

4'./5X.  •»«««  ENTER  NO.  OF  ELEMENTS  OF  THE  EIGENVECTOR   « 

5'./5x.         -mum  WHICH  MUST  BE  ARBITRARY.  « 

6'  ./) 

READ(».1050)IELE 

CALL  FRTCMSt 'CLRSCRN  ') 

IF(IELE.EO.0)GOTO  962 
'ol    WRITE! 6. 1001JIELE.  I 

1001  FORMAT ( /SX. •««««  ENTER  ROW  NUMEER3  OF  THE  '.I:.'  ELEMENTS     »»»«■ 
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1./5X.      'i«.«  OF  EIGENVECTOR  NO.'.i:-'  WHICH  ARE  ARBITRARY   »»»«' 

2./SX.        IN   12  FORMAT.   EXAMPLE:  "0102"  ■  »«■' 

3./) 

REA0(».1002)(IROW(J. I  ).J=1 . IELE) 

1002  FORMATC1012) 

CALL  FRTCM51 'CLRSCRN  'J 

C 

C        SET  UP  FOR  ADS  OPTIMIZER  CALL  IN  SINGLE  PRECISION  FOR  RESIDUAL 

C 

9u2    SRCBJ  =  5NGL(R03J! 
INFO  =  0 
I3TRAT  =  0 
IOPT  =  r 
IQNED  =  1 
NDV  =  2»N1 
NCON  =  0 

IGRAD  =  0 

IPRINT  =  1000 

NGT  =  0 

NRA  =  10 

NCOLA  =  10 
C        '  SET  30UNDS 
C        ASK  ALLOWED  TOLERANCE  ON  DESIGN  EIGENVECTORS 

IFf lELE.EO.OJGOTO  1007 
1008   WRITEU.I003) 

1003  FORMAT ( /5X. ' *»«*  ENTER  =  EAL  UPPER  SOUND  OF  ARBITRARv  ELEMENTS  »»«■ 

T./5X.     ■»«««  IN  "F12.5"  FORMAT.  ENTER  "1"  FOR  NO  BOUND.     ««««•) 
REA0(». 1020 )UR 
WRITEI6. 1004) 

1004  FORMAT ( /SX.  '  mi  a*  ENTER  IMAG  UPPER  BOUND  OF  ARBITRARv  ELEMENTS  «**« 

1-./5X.    * ■n«M  IN  "F12.5"  FORMAT.  ENTER  "1"  FOR  NO  30UND.    ««««•) 
READ(«. 10201UC 
IFtUR.NE. 1 .E-061GOTO  1006 
UR  a  0.1E-21 

1006  IFtUC.NE. 1 .E-06JGOTO  1005 

UC    =    0.1E-21 
IOCS      IFUELE.EC.N1  1GOTO    1013 

1007  WRITEC6. 1010 ) 

1010  FORMATC/5X. ■ »»«»  ENTER  ALLOWED  EIGENVECTOR  TOLERANCE  IN  "F12.5"  FO 

1RMAT  **»«■  ,/5X,  '»«»<  FOR  THOSE  EIGENVECTOR  ELEMENTS       •«»»'. /5X. 
2  ■«*..«  WHICH  ARE  NOT  ARBITRARV.  Nil**',/) 

UPITECb.1011 ) 

1011  FORMAT(5X.  •  ««•<«  ENTER  TOLERANCE  ON  REAL  PART  ««.«'./) 

REAO(».1020)EPSR 
1020   FORMATCF12.5) 

WRITE(6.1012) 

1012  FORMATC5X. ENTER  TOLERANCE  ON  IMAG  PART  »««»•,/) 

READC.  1020  1EPSC 

1013  CALL  FRTCM5C 'CLRSCRN  ■ 1 

JJ  =  0 

00  77  J  s  1  .NDV- I  .2 

JJ  =  JJ  ♦  1 

KFIND  =  0 

IFdELE.EQ.OlGOTO  1026 

1014  DO  1025  K  =  1.  IELE 

IFtJJ.NE. IROW(K. I ) 1GOTO  1025 

KFIND  =  1 

VUB(J)  =  UR 

VUB( J»l 1  =  UC 

VLB(J)  =  -UR 

VLBCJ-1 )  =  -UC 

1025  CONTINUE 

IF(KFIND.EO. 1 1GOTO  1027 

1026  X  =  DREALtVD! JJ. I ) ) 

Y  =  OIMAGCVDtJJ.  I  )  ) 
VUB(J)  =  SNGL(X)  ♦  EPSR 
VUS(J«1)  =  SNGL(Y)  •  EP3C 
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VL3CJ)  =  SNGLCX]  -  E=S' 
-3  .-1)  =  SNGLCV)  -  E=S3 

.::■  •:  =  :=£-_  -.  .. 

n   =  dimaochvcjj 

:-.:.'  =  snglixi i 
:-.  .-.  =  SNGL  : 
::  .  »  o 
: :  .  - .  »  0 

z-   .     -  : 
z-  .-:     =  : 

77  CONTINUE 

3'        :--_  -::   :-r3.  estrat.  iopt.  ioned. iprint,  igrad.nd .-«.:;>..:-..  ..s 
.    ..=  srobj<  3-  iob. --3".  :;•  :r  .sj.s=: . mcola.mc3  .30oo.ihk.ioo : 
..   =  : 

33     n     -     =     l-MDV-l     3 
JJ   >  JJ    •    1 

-.  jj]   =  chpu  3—  [ji.sm  -*i 1 1 

78  /:._:     ■  -.   .. 

:=   :--3  ;:.:  .33-3  <-<■ 

3  =  ££.-_.-"    3=-£3":.H    =.-3"I3- 

3- CNATM.CRNULLC :•    HI.]    -..3 

::  s:  .  = 

9:  RESCJ.I)   ■   WVIC(J) 

v  s  :.:: 
33  S3  ,  =   : .  ■.' 
33         t  *  v  «   3  =  e-.  -i:   j    :     --3   -   dimag  :e:   -    :     --3 

=  35-    =    3333TCY) 
3=33-    =    : 

c  continue  -:~-  ads  cptihization   [minimizing  'obji 

33*3  :  - 

=  5     FORHATI/Ht.  ■»•■  33. £3":. £  FUNCTION  ..;_.£  =  'Ell.!.   •••• 

I  ....  r-;  EIGENVECTOR  --3.  '.I3-  ./! 

:  =  DIMM  3.     £3   :  3:  33-3  53 
:-   [comjg.EQ. 1  33-3  55 

97  DO  N  (  1   l.HI 

I33-.-3    =    0 
=3  IKK. II    =   DCONJG(V(K.  :- 1 

55        33--:-..  E 

~................. ...... ....... .......  .....■•  ..........••...■•.....••.•• 

3  3:3=,;-    =£3. _*3     3=        .  .'•    -----3--- :  >>-3£3:  =  £3    E-3E    £:3E''.£3_::  3 


MUTEC6.65] 

j5  rOMkXTI       =..-....    --£    s; 3-!'-3    "-'  =  '.  '    DISPLAYS    "-£     "NEAR  --£33"    3r- 

.•••         £<  ••••    '-£    3£3::--    EIGENVECTORS    ~Z    THE    i 3--B.E    3.3- 

3-»«-./5X.        ■..--    $PK£.    -Z-    THE    3-3-E-    .■•££  =    ANAL VS  IS    I-    33..--         ■ 

:--••. /5x.       ....  -Z'-'-' .   :-  this      £-=   £33     ---=:•    ::  mot  3-~:s-  « 

<■■■'. /5X.  ••«-<    FACToav.    ENTER    -l".    <.£3"    -:..    -3-    -3£    THE    3ES-  « 

5>»'./5X.  •••■    13-    £:3£s. £3*3-3    -Z    '-£    ••£-    3E3I=£3    £-3£    EI3E--  • 

-•••■. /5"X.  ■■-••    .£3-3=3    --3    =£  =  £-"    OPTIMIZER    ROUTINE.    3'-£=-:3£  ■ 

"••-       .Sx.  ....    £--£=      ;-.    MOTE:       3E=3'    =    .3-:-  • 

:c  6i  :  -  1. iv 

MRITEC«.61)CR£StI.Jl.J»l.MI  ) 

61  -Z- ■-'     .  ■     :    £3 . : . 3X13 

63  CONTINUE 

=£-3    1.1038] I3-- 

::::     ------ 

:-■ [SAT.EO.2  .33-3    :: 

30  9 j  j  =   : .-. 

BO  93  K  a   I.N1 

':         rtUJ.K]   =   .'_•<: 
33-3  si 

z 

c  z:-3   :-.;v)     :-.£=3£  :=  3=-:-:3£3  £:3£-..E3-:;3 

3  "3    '.-■    FOB    INVERTIBILITV 
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c 

6  6     DO  »«  J  =  1.N1 

DO  "4  K  =  1  .Nl 

IF(I0PT.EQ.l)G0TO  211 

WRITEC2.64  IVtK.J  ) 
211    VOCJ.K)  =  VCJ.K] 
°4     VSAVECJ-K)  =  V(J.K) 
C         DEBUG  WRITE  STATEMENTS 
C      TITLE' "V 

C      CAL-  CWRI~EIV.N1 .Ml .TITLE) 
C      CALL  CWRITECUN1TYC-N1 .Nl .TITLE) 

CALL  LEQT1CCVSAVE.N1 . 1 0 . UNI TVC .Nl . 1 0 . 0 . WA . IER  ) 
C      CALL  CWRITECUNITYC.Nl .Nl .TITLE) 
C      CALL  CMATML.CUNITYCV.Nl.NltNl.VlV) 
C      CALL  CWRITECVIV.N1 .Nl .TITLE) 
C  RESTORE  UNITYC  AND  REPLACE  WITH  VD! 

DO  210  I  -  1 .Nl 

DO  210  J  =  1.N1 

VDICI  .  J)  =  UNITVCCI  .J) 
210    UNITYC(I.J)  =  DCMPLXCUNITYC I . J ) . 0 . DO ) 

C 

C        FIND  2-NORM  CONDITION  OF  OPTIMirED  EIGENVECTOR  MATRIX 

C 

DO  7°  I  =  1.N1 

DO  7°  J  =  1  .Nl 

VDSC I.J)  =  V( I . J  ) 
79     VD15CI .J)  =  VDICI .J) 

C ALL  CS VO  C  VOS • 1 0 . 1 0 . N I . N 1 . 0 . N 1 . N 1 , S 1 . UVDS . VVOS  ) 

CALL  CSVDCVOIS. 10.10.N1.N1.0.N1.N1 . S2 . UVD I S . VVDI S ) 

COND2  =  S1(1)»S2(1  ) 
C      CALL  FRTCMSC • CLRSCRN  ') 
°2       WRITEC6.85 1COND2 

85  FORMATC/SX, ' «»»«  2-NORM  CONDITION  NO.  OF  EIGENVECTOR  MATRIX  »««» 

1- ,/sx. ■ »»««  IS  '.£12.5.'  ».»»•./) 
WRITEC6. 1040! 

1040   FORMATC//SX.  '  »•<««  IF  2-NORM  COND  NO.  IS  UNSAT:  »«•«'. /5X 

1.  >*»»»    ENTER  "1"  TO  MIN  COND<V>  VIA  ADS. /SX 

2.  •««*«  ENTER  "2"  TO  »ETURN  TO  ADS  MIN  OF  RE-   mum' ,/SX 

3.  '  MBit*  5IDUAL  OF  <V> .  ./5X 

4.  ■»■>■.»     IF  C-NORM  COND  NO.  IS  SAT:  ENTER":"     »** » ' . /SX 
5./) 

READC.10501ICOND 
1050   FORMAT! II) 

CALL  FRTCMSC 'CLRSCRN  •) 
IF(ICOND.E0.2)GOTO  51 

86  IFCICOND.EQ.JJGOTO  « I 

C 

C  SET  UP  OPTIMIZER  CALL  FOR  2-NORM  CONDITION  NO.  OF  V 

C  NOCON  =  a  OF  ORTHOGONALITY  CONSTRAINTS 

C  N3SC0N  =  a  OF  ALLOWABLE  SUBSPACE  CONSTRAINTS 

C  NCON  =  TOTAL  "    OF  CONSTRAINTS 

C    CAUTION!!!  NOT  OPERATIONAL 

C 

COS J  =  SNGL(C0ND2) 
INFO  =  0 

ISTRAT  =  0 
IOPT  »  4 

IONED  =  7 

NSSCON  =  Nl 
C      WRITE (6. 1070) 

C070   FORMATC//5X. ' »"«»  ENTER  NUMEER  OF  ORTHOGONALITY  CONSTRAINTS  **«»■. 
C     1  /5X.        •««««  IN  IJ  FORMAT.  EXAMPLE:  "06"  »«»«■./ 


162 


1073 
C 

1072 
1080 


1081 

108; 

1083 
1081 


i    ) 

REA0(». ioocinocon 

NCCN  =   NS3C0N 
I3RAD  =  0 

iprint  =  ;o:c 

NGT  =  0 
NRA  =  10 
NCOLA  =  10 
NOV  =  2*N1»N1 

IV  =  Ml  -  Ml 
IF  THIS  IS  NOT  THE  FIRST  °A3S  THROUGH  THE  CONDITION  NUMBER 
MINIMIZATION.  ASK  THE  USER  IF  HE/SHE  DESIRES  TO  USE  THE 
CURRENT  EIGENVECTOR  MATRIX  OR  IF  THEY  DESIRE  TO  USE  THE 
EIGENVECTOR  MATRIX  COMPUTED  DURING  THE  RESIDUAL  MINIMIZATION. 

WRITE16. 1071 ) 
FORMAT  ( /5X.  '  ■•"-■>     IF  THIS  IS  THE  INITIAL  CONDITION  NUMBER  PASS  -« 


ENTER  "2".  IF  NOT  AND  YOU  DESIRE  "0  REENTER  « 
THE  OPTIMIZATION  WITH  THE  UPDATED  EIGENVECTOR" 
ENTER  "2".  OTHERWISE  ENTER  "1"  WHICH  WILL  RE-« 
START  THE  OPTIMZATION  WITH  THE  EIGENVECTOR  « 
MATRIX  IN  "DESVEC"  DATA  FILE.  « 


./5X. 

./sx. 

./5X. 
./SX. 
./SX. 

./) 

READC*. 1050 II ICON 

IF(IICCN.EC.2)GOTO  1G72 

DO  1073  J  =  1.N1 

DO  10  73  <  =  I.N1 
VCJ.K:  =  VDtJ ■< ! 

ASK  ALLOWED  TOLERANCE  ON  EIGENVECTOR  ELEMENT 
~RITE(6.:C30) 


=cr"at:/Sx. 
1  »-»-• 


C    <***«  ' 


««»«  AT  LEAST  TWO  EIGENVECTORS  MUST  FLOAT  DURING  THIS 
/SX.  "•.«•»  OPTIMIZATION.  ENTER  THE  COLUMN  NO .  3  OF  THE  EIGEN- 
,/5X.  •  »«»•<  VECTORS  WHICH  MAY  "FLOAT"  IN  ASCENDING  ORDER  IN 
/5X,'»«»»  12  FORMAT.  EXAMPLE:  "0102"  WILL  FLOAT  EV  n  1  S  2 . 
/) 


READC1002HIFLTCI  ).  1  =  1.  Ml  ) 

WRITE(S.IOOI) 

REaO(». 10C3JUR 

WRITE(S. 1004) 

READ C«.l 020 )UC 

IF(UR.NE. l.E*06)GOTO  1082 
UR  =  3  . 1 E  •  2 1 

IFCUC.NE.l .E-06  1GOTO  1084 
UC  =  0. IE*21 
HRITE(6. 1010) 

WRITEI6.1011 ) 

READ(*.1020)EPSR 

URITEC6. 1012! 

READ(». 10C0:E?SC 

J    =    1 
REIN  IT   AND   SET   BOUNDS 

DO    130   K    =    1.N1 

ICKK)    =    0 

DF(K)    =    0. 

DO    130   L    =    1.N1 

X    =    DREAL(V(L.<)  ) 

Y    =    DIMAGCVCL.K )  ) 

XSJ(J)     =    SNGL(X) 

XBJU-1 )     =    SNGL(Y) 

DO    131    II    =    1.N1 
IFUFLTUI  1.EO.K1GOTO    200 

VUB(J)    =    XBJ(J)    ♦    EPSR 

VUBU'l  )    =    XBJCJ-1  )    •    EPSC 

VLB(J)    =    XBJCJ)    -   EPSR 

VL3f J*l )  =  XBJIJ-l )  -  EPSC 

J  =  J  ♦  2 

GOTO  130 
VUB(J)  =  UR 

vuBCJ-1)  =  UC 

VLStJ)  =  -UR 
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VL8<J*1 )  =  -UC 

j  =  j  •  ; 

130  CONTINUE 

C  DESUG  WRITE  STATEMENT 

C  WRITEC6. 2000*1 

C000  FORMAT t /5X. • <•««  VECTOR  30UNPS  FOR  ADS  ««««'./) 

C  DO  2001  J  =  I. NOV 

C  WRITE(6.:002)VLB(J).X8JCJ) .  VU3U ) 

COO;  FORMAT! 1X.SCE12.5.2X1 ) 

C001  CONTINUE 

C  DEFINE  CONSTRAINTS  AS  NONLINEAR.  INECUALITV 

DO  135  I  =  l.NCON 

135  IDGHI  )  =  0 

C  SET  BOUNDS  ON  CONSTRAINTS 

C  WRITEC6.1060) 

C060  FCRMATC/5X.  ' «««»  ENTER  ALLOWED  TOLERANCE  ON  NON-ORTHOGONAL  I  TV  «»«« 

C  l'./5X.       •»»««         OF  EIGENVECTORS  IN   DECIMAL  FORMAT.      --■" 

c    ;•  ./) 

C      READC-. 10C0IE 

WRITE(6.106;> 
106;   FORMATC/5X. •»«»»  ENTER  NEW  DESIRED  EIGENVALUES  FOR  CONDITION  »»»* 
l'./SX.      '«>«  NO.  MIN.  ENTER  IN  SAME  ORDER  AS  DATA  FILE. 
;'..'5X.      •»««•<  NOTE:  EIGENVALUES  MUST  BE  ENTERED  IN  SAME 
3'./5x.      • hmwm  ORDER  AS  CORRESPONDING  EIGENVECTOR.  IF  EI- 
4'./5x.      '»-«»  GENVALUE  CORRESPONDS  TO  A  "NCN-FLOAT ING" 
5*./5X.      ■mum  EIGENVECTOR,  IT  SHOULD  REMAIN  THE  SAME  A3 
o'./SX.       ■■mm  ITS  INPUT  VALUE  TO  MAINTAIN  DESIGN  RQMT3. 
7'  ./  1 

CO  1063  J  =  1  .Nl 

WRITE(6.1064)J 

1064  FORMATC/10X. ' »»»«  EIGENVALUE  NO.  '.i;.*  »»»«'. /5X .' REAL  PART  = ' . /  ) 

READC<.1065)X 

1065  FCRMATCF1C.S! 

WRITE (6. 1066 ) 

1066  FORMATtSX, ' IMAG  PART  •',/) 

REAOC. 10651V 

EIGO(J)  =  DCMPLX(X.Y) 
1063   CONTINUE 

WRITE(6.1061  ) 
1061   FORMATC/5X. ' ««»»  ENTER  ALLOWED  TOLERANCE  ON  ACHIEVABLE  SUB-    ***» 
**    SPACE  CONSTRAINTS.  THIS  VALUE  CORRESPONDS 
«»  TO  THE  ALLOWABLE  EUCLIDEAN  DISTANCE  BETWEEN 
-'    THE  DESIRED  EIGENVECTOR  AND  THE  ACHIEVABLE 
»i    SUBSPACE  CORRESPONDING  TO  THE  EIGENVALUE  EN- 
»«  TERED  ABOVE. 


1' ./5X. 

;• ./5x. 

3' ./5X, 
4'  ,/SX. 
5' ./SX. 
6'  ./) 

READ(«.10;0)E1 
CALL  FRTCMS  t'CLRSCRN  '1 
C        OPTIMIZE 
190    CALL  ADSUNFO.  ISTRAT.  IOPT.  IONED.  IPRINT.  IGRAD  .  NOV  .  NCON  .  XBJ  . 

1  VLB.VUB.C08J.GC. IDG1 .NGT. IC1 . DF . RA .NRA. NCOLA. WK3 . 3000 . IWK. 1000) 
C        EVALUATE  OBJECTIVE  S  CONSTRAINTS 
L  =  1 

DO  140  J  =  1 .Nl 
DO  16  0  K  =  1 .Nl 

V(K.J)  =  CMPLX(XBJCL) .XBJCLM ) ) 
V3AVECK..J)  =  V(K.J) 
L  »  L  ♦  2 
140    CONTINUE 

CALL  LEQTICtVSAVE.Nl  .  10  .  UNITYC.N1  .  1  0  .  0  .  WA  .  IER  ) 
DO  14;  J  =  1.N1 
DO  14;  K  =  1 .Nl 
14;  VOI(J.K)  =  UNITVCU.K) 
DO  145  J  '  1 .Nl 
DO  145  K  =  1 .Nl 
145    UNITYC(J-K)  =  OCMPLXIUNITYC J , K ) .O.DO  ) 

CALL  CNSTRN(N1 .GC.XBJ.E.E1 . NOCON . A . B . Ul TC . EIGD . UNI TY , IV.UNITYC 
1  .IFLT) 

DO  150  J  =  1.N1 
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DO  150  K  =  1.N1 

vdscj.k)  =  vcj.k) 
150   vdisu-k)  =  vdiu.k) 

call  csvo  ( vds . 1 0 . 1 0 . n 1 , n 1 . 0 . n 1 . n 1 . s 1 . uvds . vvds ) 
call  csvdcvdis. io.io.ni.ni.o.ni .ni.s2.uvdis.wois) 
condz  =  su;  i«s2d  > 

c     CALL  NCRMIV.N1 j 
C     CALL  NCRMCVOI .Ml  ) 

IFCISFO.EQ.OIGOTO  92 

cosj  =  SNGLICOND2) 

GOTO  190 

c 

C         FIND  <V><SMXV0I>  •««•"  NOTE:  VOI  =  INV<V> 

C 

91     DO  80  I  »  1.N1 

80    EIGDMCI.I )  =  EIGDC1 ) 

CALL  CMATML(EIGDM.VDI-Nl.Nl.Nl.EVI) 

CALL  CMATMLCV.EV1 .Nl .Nl .Nl .VEVI ) 

DO  90  I  =  l.N.l 

DO  9  3  J  =  1 . N 1 
90     VMA(I.J)  =  VEVI CI. J)  -  OCMPLXtACI  .  JJ.0.D0) 
C         FIND  3VD  OF  C 

DO  231  J  ■  l.U 

DO  231  <  =  1 .Nl 

C33CJ.K)  =  CCJ.K] 
231    CSCJ.K)  =  CCJ.K] 

CALL  LSV0FCCS. 10. LI .Nl .CUT. 10 .LI .SC.WK4. IER) 

CALL  RANKOCCS.CUT.SC. LI -Nl .C0TC.C1TC. ZINVCC. IRANKC.CGI ) 

WRITE(6.235)IRANKC 
235    FORMATC/5X. ' »«•«  C  MATRIX  HAS  RANK  s  '.12.'  «»««•./) 

IFURANK.EO.M1  .AND.  IRANKC.EQ.N1  JGOTO  229 

IV  s  Nl  -  IRANK 

CALL  FEEDEFCA.3.C.V.V0I.EIGDM.6GI.U1TC.CGI.N1.M1.L1.IY.1FEED.FC) 

GOTO  238 
22«    CALL  CMATMLCU0TC.VMA.M1 .Nl ,N1 . UTVC ) 

C 

C        FIND  INV£R3E<R">  S  FEEDBACK  GAINS 

C 

224    CALL  LINVCFtRI.Ml . l: .RZINV. 1 .WAREA2. IER) 

DO  96  J  =  I. Ml 

DO  96  K  =  I. Ml 
96     RZINVC(J.K)  =  DCMPLXCRZINVCJ.K) . 0 . DO ) 

CALL  CMATML(R;iNVC.UTVC.Ml ,M1 .Nl .fci 
C         MODIFY  FC  IF  OTHER  THAN  FULL  STATE  FEEDBACK 

[FCIFEED.EQ. 1 !30T0  228 

237  CALL    CMATML'FOZINVCC.Ml  .Nl  .  IRANKC.FCZ) 

call  cmatmltfcz.cotc.ml , irankc.l1 .fc) 

238  if(ifeed.ec.::goto  ::8 

DO  232  J  =  1 .LI 
DO  232  K  =  I. Ml 
FCS(K.J)  =  FCfK.J) 
2  32    DC(J.K)  =  DCMPLXCD(J.K).O.DO) 

CALL  CMATMLC0C.FC.LI.M1.L1 • DCFC ) 
DO  233  J  •  1,U 
DO  233  <  »  I. LI 

233  DCFCKJ.O  =  UNITYC(J.K)  ♦  DCFCtJ.K) 

CALL  LEQTlCCDCFCl.Ll.lO.'JNITYC.Ll.lO.O.WA.  IER) 
CALL  CMATMLCFC3.UNITYC.M1 .LI . L 1 . FC ) 
DO  234  J  =  1 .Nl 
DO  234  K  =  1 .Nl 

234  UNITYCCJ.O  =  DCMPLX(UNITV(J.K)  .  0  .  DO  ) 

C 

C        FLAG  USER  IF  COMPLEX  =EEDBACK  GAINS  ARE  COMPUTED 

C 
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228   oo  ceo  j  =  i.m 

DO  CCO  K  »  liLl 

TIMAG  =  DIMAGCFCCJ.K) ) 

IF C DABS C TIMAG) .GT. 1 .0-06 1G0T0  221 

GOTO  220 

221  x  =  dimagcfccj.k)  ) 

writeco.222  u.k.x 

222  F0RHATC/5Xf '****  WARNING!  FC ' . 12 , • . • . 12. ' )  HAS  AN      »»'«'./5X. 

j  .,„„«  IMAGINARY  PART  s  ' .E12.5./5X. 

Z  •»»»»  EIGENVECTOR  MATRIX  MAY  BE  ILL  CONDITIONED  »«»«',/ 

I) 

220    CONTINUE 

C 

C        SORT  OUT  REAL  PARTS  OF  F  MATRIX 

C 

DO  132  J  =  I. Ml 

DO  132  K  =  1  ,H\ 
132    F(J.K)  =  DREALCFCCJ.K)  ) 
C      WRITEC6.100) 

COO    F0RMAT(/5X. ' »«»»  F  MATRIX  RESULTS  FROM  XAUTSKY  ALGORITHM  »»««•./) 
C      DO  1 1 0  I  =  1 .  M 1 
C      WRITEC6.  1201CFCI.  J).J=  l.Nl) 
C20    FORMATC1X.6CE10.3. IX) ) 
CIO    CONTINUE 
C  FIND  MINIMUM  SINGULAR  VALUE  IN  FRECUENCY  RANGE  .01  -  100  R/S 

CALL  SVA(A.3.C.D.F.UNITV.N1 .Ml .LI . W . SVM . SVMAX . SVM1 .SVMAXl . I FEED) 

XI  =  20.00 

00  230  I  =  1.200 

IFCSVMCI ) .GT.X1 iGOTO  230 

SMIN  =  SVMtl ) 

X2  =  W(I ) 

XI  =  SMIN 
230    CONTINUE 

WRITEC6.2401SMIN.X2 
240    FORMAT(/5X. 'mum  MIN  3.V.  OF  RDM  «  '.E12.S.'  ***■' i/5Xi 

I  •»«»»    =PEQ.  OF  MIN.  S.V.  =  '.E12.5.'  «««»•. /5X. 

Z  'mom  ENTER  "J"  TO  OPTIMIZE  THE  S.V.  ./SX. 

J  'Dana  ENTER  "2"  TO  EXIT  KVECT.         ««««■./) 

READ(». 1050>ILQG 

IFCILQG.EQ.2  1GOTO  133 

C 

C  SET  UP  OPTIMIZER  CALL  FOR  MINIMIZING  MULTI-VAR I ASLE 

C  KALMAN  INEQUALITY  FOR  R  =  IDENTITY.  ONLY  SUILD  ONE 

C  DESIGN  VARIABLE  VECTOR  AND  UPPER/LOWER  SOUND  VECTOR 

C  PER  COMPLEX  EIGENVALUE:  PRESENTLY  ONLY  REAL  CASES  ARE  HANDLED 

C 

CALL  FRTCMSC'CLRSCRN  •) 
WRITEC6.245) 

245  FORMATC/5X. ENTER  NO.  OF  ITERATIONS  DESIRED  FOR  ADS  «•»«',/) 

READ(». 10021NITER 

CALL  FRTCMSC'CLRSCRN  •) 

WRITE (6. 24 6) 

246  FORMAT(/5X. • »«««  ENTER  MIN.  S.V.  TOLERANCE  FOR  ADS  ««««•./) 

READ! ». 1020 1SVTOL 

CALL  FRTCMSC'CLRSCRN  ') 

INFO  =  0 

ISTRAT  =  1 

IOPT  =  1 

IONED  =  2 

NCON  =  Nl 

IGRAD  =  0 

IPRINT  =  2200 

NGT  =  0 

NRA  =  10 
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NCCLA  =  10 

NDV  =  2«N1»N1 

IY  >  HI  •  Ml 

ITER  =  0 
C        SPECI=Y  EIGENSTRUCTURE 
C        NORMALIZE  EIGENVECTOR  MATRIX  FIRST 

CALL  NORMCV.N1 ) 

DO  250  I  =  1 .Nl 

WRITECb. 255)1 
255    FCRMATI//5X. ' »«»«  ENTER  NO.  OF  ELEMENTS  OF  EIGENVECTOR  '.12.'  » 

l'./5X.        ■»«««  WHICH  ARE  AR3ITRARV. 
250    REAO(«.IOSO)IEL£M(I) 

CALL  FRTCMSt 'CLRSC'N  ') 

DO  2S0  I  =  1.N1 

MRITEC6.1001 1IELEMCI ). I 
260    »EAO<«.  10021UROWU.  I  !.J  =  1.  IELEMCl  )  ) 

CALL  FRTCMSC 'CLR3CRN  ') 
C         GET  SCUNDG 

-R:TE(6.1003) 

READ! h. 1020 )UR 

WRITEC6. 10041 

READ(». 10201UC 

CALL  FRTCMGCCLR3CRN  ') 

IFCUR.NE.1.E*OS)GOTO  300 

UR  =  0.1E-2I 

300   ifcuc.ne. ;  .e-o»)Goto  310 

JC  =  0.1E»21 
310    WRITE! 6. 1010 ) 

MRITEC6. ::'.'.  : 
read;-. i::o:EPCR 

HRITEC6.10121 

READC.1020  1EPSC 

Call  frtcmsc 'CLRSCRn   •) 
C  WRITEC6.319)UR.UC.£PSR.E?SC 

CI?        FORMAT C/SX.'UR    =    ' .E12.5./SX. 'UC    =    ' . E12 . 5 . /5X . • EPSR    =    '.612.5. 
C  1    /5X. 'EPSC    =    ' .£12.5) 

J    =    1 

DO   330    II    =    1.N1 

DO    330    JJ    =    1  -Nl 

DO  320  KK  ■  1.  IELEMd  I  ) 

IrCJJ.EO.IROWtKK. II ) JGOTO  32S 
320    CONTINUE 

GOTO  340 
325    VUBCJ1  =  UR 

VUBCJ-1)  =  UC 

VLBCJ)  -    -UR 

VLB(J-1 )  =  -UC 

J  -    J  ♦  2 

GOTO  330 
340    X  =  DREAL(V( JJ. Ill) 

V  =  DIMAG(V(JJ. Ill) 

VUB(J)  =  GNGL(X)  ♦  EP3R 

/U8(J«1 )  =  GNGL(V)  •  EPSC 

VL3U)  =  SNGL(X)  -  EPSR 

VLSCJ-1  )  =  3NGLCY)  -  EP3C 

J  -    J  •  2 

330  CONTINUE 

C  DEFINE  CONSTRAINTS  AS  LINEAR  INEQUALITY 

DC  3  35  I  =  l.NCCN 
335    [061(1 )  =  2 
C         SET  30UND3  ON  CONSTRAINTS 

WRITE(6.10bl ) 

READ(«.1020)E1 

CALL  FRTCMSt 'CLRSCRN  ') 
C         FILL  -  UP  DESIGN  VARIABLE  VECTOR 

331  JJ  =  1 

DO  345  II  =  1.N1 
DO  345  <K  =  1.N1 
X  =  DSEALCVIKK. II)) 
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V  =  DIMAGtVtKK.II  !) 

X8JCJJ)  =  SNGLCX) 

XBJ(JJ*1)  =  SNGL(Y) 
345   JJ  =  JJ  ♦  2 
C        DEBUG  WRITE 

IrCINFO.NE.OlGOTO  349 

WRITE (6. 348) 

348  FORMATC/SX, ■ ****    ENTERING  ADS  WITH  THE  FOLLOWING  ««««'./) 

DO  346  I  -    1 .NOV 

WRITE(6.34  7)VLSU J.XBJCI l.VUBCI ) 
347        FORMATUOX.  3(E12  .5.  3X) J 
34b        CONTINUE 
C  OPTIMIZE 

349  CALL  ADSC INFO. ISTRAT, IOPT. IONED. IPRINT. IGRAD • NOV . NCON . XEJ . 

1  VLS.VU8.C08J.3C, IDG  I .NGT.  IC1 . DF.RA.NRA.NCOLA.WK3 . 300  0 . IWK. 1000) 
C  EVALUATE  OBJECTIVE  FUNCTION  AND  CONSTRAINTS 

ITER  =  ITER  *  1 

JJ  =  1 

I  CON J  =  0 

DO  350  I  =  1 .Nl 

DO  350  J  =  1.N1 
352    VCJ.I)  =  CMPLXIXBJt JJ  1  .XBJUJ'l  )  ) 

350  JJ  =  JJ  •  2 

C        NORMALIZE  EIGENVECTOR  MATRIX 
CALL  NORMCV.N1  ) 
DO  351  I  =  1.N1 
DO  351  J  =  1.N1 

351  VSAVEU  .J)  =  V(I  ,J) 

CALL  LEQT1CCVSAVE.N1 . 10.UNITVC.N1 , 10 ■ 0 . WA . IER ) 

CALL  CMATMLCSIGCM.UNITYC.N1  .Nl  .Nl  .EVI  ) 

CALL  CMATML (V.EVI.N1.N1.N1.VEVI) 

DO  355  I  =  1.N1 

DO  355  J  =  1 .Nl 

VDI(I.J)  =  UNITVC(I.J) 

UNITYC(I.J)  =  DCMPLXtUNITVt I , J  1.0. DO) 
355    VMA(I.J)  =-DCMPLX(A(I.J) .O.DO)  •  VEVItl.J) 

CALL  CMATML (UOTC.VMA. Ml .Nl .Nl , UTVC ) 

CALL  CMATML  (RZINVC.UTVC  Ml .Ml ,N1 .FC) 

TITLE  =  'EV 
C      CALL  CWRITECV.N1 .Nl. TITLE) 
C      CALL  CWRITEC/DI .Nl .Nl .TITLE) 

DO  360  I  =  1 .Ml 

DO  360  J  =  1  .Nl 
360    FCI .J  )  =  DREAL(FC(I .J)  ) 

CALL  CNSTRNCN1 .GC.XBJ.E.E1 . NOCON . A . B . Ul TC . EIGD . UNITY . I V , UNITVC . 
1  IFLT) 

CALL  SVACA.B.C.F.UNITY.N1.M1.L1.W. SVM . SVMAX . SVM 1 . SVMAX 1 ) 

XI  »  20. DO 

DO  365  I  =  1.200 

IFCSVMd  1.GT.X1  1GOTO  365 

SMIN  =  5VMCI ) 

X2  =  W(I  ) 

XI  =  SMIN 
3  65    CONTINUE 

COBJ  =  SNGLtSMIN)  -  1.0 

CALL  FRTCMSCCLR3CRN  ') 

WR I TE  (  6  .  3  7  0  )  C03  J  .  SM I N  .  X2  .  GC  ( 1  ) .  GC  ( 2  ) .  GC  (  3  )  .  GC  !  4  ) 
370    FORMAT  ( /5X.  '  »»»•<  C3J  =  '.E12.5.-  »«»»'. /5X. 

1  •»«««  min  S.V.  =  '.E12.5.'  AT  FREQ  =  '.E12.S./5X. 

;  'nkxw  CONSTRAINT  1  =  '  .E12.5./5X.  'mm*  CONSTRAINT  2  = 

3-E12.5./5X. ' »««»  CONSTRAINT  3  =  ' .E12.5./SX. "*«»«  CONSTRAINT  4  = 
4.E12.S./) 

IFdNFO.EQ.O.OR.ABSCCOBJ  )  .LT  .  SNGL  (SVTOL  )  1GOTO  «1 

IFIITER.GT.NITER1GOTO  91 
366    GOTO  349 

C         WRITE  RESULTS  OF  KVECT  FOR  FURTHER  USE  IN  RECONFIGURATION 
C         STUDIES. 
133    DO  400  I  =  1 .Nl 

WRITE(9.401)(V(I.J).J=1.N1) 
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401    F0RMATUX.4E12.5./1X.4E12.5) 
400    CONTINUE 

DO  4 1 0  I  »  1  .  n  1 
410    MR  I  TEC  9.401  )(EIGDM(I.J).J=1  ,N1  ) 

DO  415  I  =  I. Ml 
415    MRITEC9.401  KRiCd  .J).J  =  1.M1  ] 

30  420  I  =  l.Ml 
420    WRITE  (9.  401  HUOCCI.J)  .  J  =  1.M1  ) 

DO  430  I  =  1 .MI 
430    WRITEC9.401 )(FCt I . J ) .J=I .Nl ) 

DO  435  I  =  1  .Ml 
435    WRITE:0 .401 ](FI I > J ) . J=l .Nl ) 

RETURN 

END 

c 
c 
c 
c 
c 
c 
c 

C  »  w  *•  *  * 


...-.---.-.-...... 


c 

J  »  1 

c 

DO  5 

c 

VXCJ) 

c 

J  =  J 

c 

IFCN1 

c 

IFINJ 

c 

'."(Nl 

c 

IFCN1 

c 

IFCN1 

c 

IF!N1 

c 

I  F  (  N  1 

SUBROUTINE    CNSTRN:     COMPUTES    LINEAR.     INEQUALITY    CONSTRAINTS 
FOR    OPTIMIZING    THE    2-NORM    CONDITION    NO. 
CF    THE    DESIGN    EIGENVECTOR    MATRIX    AND/OR 
MINIMIZING    THE    MULTI-VARIABLE    KALMAN 
INEQUALITY    RELATION. 

KN»MN«NMNNIIMMMMNMNII!f!fJIII!tMN!l»NilNNM»MMf|4|MNMMHNNMffttltll«!l!fNNMMIIHNMMJI* 

SUBROUTINE  CNSTRN (Nl  .G.X.E.E1  .NOCCN.  A.B.  U1TC.EIGD.  UNITY. 
1   1Y.UNITYC.IFLT) 

IMPLICIT  REAL-SCA-H.P-Z) 

REAL'S  A( 10. 10 ).B( 10. 10). UNITY (10.10) 

CCMOLEX-lb  UNITYCC10.  10)  .  U1TCC13-  lO).EIGO(lO)  .WMK10.  10). 
1  RN(10.10).MV1(10).WV2(10).Z1 

COMPLEX'S  VXC2C0) 

REAL»4  GC20)  .X< 1001.E.E1 .£2 

INTEGER  Nl .NOCON. IY, IFLTt 10 ) .NDV. INDEX 

NDV  =  Z»N1«N1 


i  =  l.NDv-i.: 

=  CMPLX(X(I ) .X(I«1  )  ) 

♦  1 

.EQ.OGOTO  10 

. E3.3JGOTO  2  0 

.EQ.4IG0T0  30 

.EQ.5IGCTO  1000 

.EQ.61GOTO  1000 

.EQ.71GOTO  1000 

.EQ.SJGOTO  1000 


c 

c 

c»» 

t«IX««» 

CO 

0(1  ) 

c 

GOTO 

CO 

g:  i ) 

c 

G(2) 

c 

G(3) 

c 

GOTO 

CO 

G(l  ) 

c 

c 

3(21 

c 

c 

GC3) 

c 

c 

G!4  ) 

c 

c 

GC5) 

c 

c 

GC6) 

c 

ORTHOGONALITY  CONSTRAINTS 

=  CASStVXCl )»VX(3)  ♦  VX(2)«VX(4 ) )  -E 

1000 

=  CABSCVXC1 )»VXC4 )  ♦  VX(2)«VXC5)  ♦  VXC3 )«VXC6) )-  E 

=  CA3SCVXC1 )*VXC7)  t  VXC1)«VX(8)  •  VX(1  )»VX(9) )-  E 

=  CA3S(VX(4)»VX(7 )  •  VXC5)»VX(8)  •  VX  (  6  )  "VX  (  9  )  )-  E 

1000 

-    CA3SCVXC1 J»VX(5 )  ♦  VX(2)»VX(6)  ♦  VXC3)»VX(7)  ♦  VXC4)« 

)  -  E 
'    CASSCVXC 1 )«VX(9 )  *  VX(2 )»VX( 10 )  •  VX(3)»VX(11)  ♦ 

VXC4 )»VX( 12 ) )  -  £ 
=  CA23CVXC1 )»VX( 13 )  ♦  VXC2)«VX(14)  ♦  VX C 3 ) »VX( 1 5 )  • 

VXC4 )»VX< 16 ) )  -  E 
s  CABSCVXC5  )«VX(9)  *  VX(6)«VX(10)  ♦  VX( 7 ) «VX( 1 1 )  ♦ 

VXC8)'VXC12) )  -  E 
=  CA33CVX(S)*VX( 13)  •  VXC6)«VXC14)  ♦  VXC7)«VX(15)  ♦ 

VXC3 )*VX( 16  1)  -  £ 
=  CA8SCVX(9)»VX( 13)  *  VX( 10 )»VXC 14 )  ♦  VX ( 1 1 ) "VX ( 15 )  » 

VXC12)«VX(16 ) )  -  £ 
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C  ALL0WA3LE  SUBSPACE  CONSTRAINTS 

C 

1000   LL  =  1 

KK  =  1 

DO  31  I  •  l.Nl 

:i  =  EIGDCI  ) 

DO  32  J  =  1 .Nl 
DO  3C  K  =  1  .Nl 
52     WMl(J.K)  =  DCMPLXCA(J.K) .0 .30 )  -  2 1 "UNI TYC ( J . K  ) 
CALL  CMATMLCU1TC.WM1 .IY.N1.N1.RN) 
JJ  s  1 

INDEX  =  I  *    Nl  •>  2 
DO  35  LL  =  <K.  INDEX- 1  .  : 
WVICJJ)  =  CMPLX(XCLL)  .X(LL*1 ) ) 
JJ  =  JJ  *  1 

35  CONTINUE 

KK  a  INDEX  •  1 

CALL  CMATMLtRN.WVl  .  IY.N1  ,  1  .  UV2  1 

Yl  =  0.30 

DO  36  II  =  l.IY 

36  Yl  =  Yl  ♦  CDA3S(Wv;tII  )  ) 

G(I)  =  SNGLCVl )  -  El 
31     CONTINUE 

RETURN 
END 

C 

C  SUBROUTINE  CCNTRL:  DETERMINES  C0NTR0LLA3ILITY  OF  COMPLEX 

C  O-LOOP  EIGENVALUES 

C 

SUBROUTINE  CCNTRLIA.8.UNITYC.N1.M1. IC'R.EIG. II ) 

IMPLICIT  REAL'8(A-H.P-;i 

REAL"8  SCIOJ.ACIC. 101.8(10. 10) 

COMPLEX"  16  UNITYCC10.  10  1.WMC1C10.  1  0 ) . WMCC C 10  .  1  0  )  .  WMC3  ( 1  0  .  10  )  . 
1EIGC10).WMC«UO.IO).WMCSC20.20).Z1.Z2.ZS.UUO.IO).V(10.10) 

INTEGER  Nl .Ml. ICTRU0J.I1 

Tl  =  EIGdl ) 

DO  10  J  -    1  .Nl 
10     WMCKJ.J)  =  Z1»UNITYCCJ.  J  ) 

DO  CO  J  =  1 .Nl 

DO  20    K  =  1 .Nl 

UMCCCJ.K)  =  WMC1CJ.K)  -  DCMPLX(ACJ.K) .0.D0) 
CO     WMC3U.K)  =  UNITVCCJ.K) 
C  CALCULATE  SLAMDHA  ( 1 ) 

DO  10  J  -  1 .Nl 

DO  30  K  =  1.N1 
30     WMC5U.K)  =  WMCC(J.K) 

DO  40  J  =  1  .Nl 

DO  4  0  K  =  1.M1 
40     WMC5(J.K*N1)  =  DCMPLX(B(J.K).0.D0) 
C  CALCULATE  RANK  OF  SLAMDHA 

II  =  Ml*  Nl 

CALL  CSVDCWMC5. 10.10.N1.II.0.N1.II.S.U.V) 

IF(S(N1 1.LE.0.D0 )GOTO  50 

ICTRU1)  =  1 

GOTO  1000 
50     ICTR( II )  =  0 
1000   RETURN 

END 

C 

C  SUBROUTINE  CWRITE:  WRITES  OUT  A  COMPLEX  MATRIX  FOR 

C  IBM  3C78  TERMINAL 

C  A  =  INPUT  COMPLEX  MATRIX 

C  IRA=R0W3  OF  A  :  IRC=COLUMNS  OF  A 

C 
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C  SUBROUTINE  CWRITEtA. IRA. ICA. TITLE) 

C  IMPLICIT  REAL"8(A-H. P-Z) 

C  COMPLEX* IS  A(13. 10) 

C  INTEGER  IRA.ICA   ' 

C  CHARACTER "8  0  TITLE 

C  WRITE t 6. 5! 

C         SCRMAT(  /,,**»«'*lf>»*'«N"**,><»'*»"«l»«*'»»l»*««l»*W<4*«*J«W**HM*<«*»l»t«*«»*W«*',/) 

C  WRITE(S.6)TITLE 

C  FCRMATC/.1A4) 

C  DO  10  J  »  I.IRA 

C  WRITECS.COHACJ.K)  .K  =  1.ICAI 

CO  FORMAT !8t £8 • 1 • IX) ) 

CO  CONTINUE 

C  WRITE (6. 5) 

C  RETURN 

C  END 

C 

C  SUBROUTINE  COND:  FINDS  2    -  NORM  CONDITION  NUMBER  OF 

C  A  SQUARE  COMPLEX  MATRIX 

C 

SUBROUTINE  CCND(Z.NI.XCOND) 

IMPLICIT  REAL"8(A-H,P-2) 

COMPLEX  "16  Z  C 1 0  .  1 0  )  .  UZ  C 1 0  •  1 0  )  .  VZ  ( 1 0  . 1 0  )  .  UN  I TYC  <  1  0  .  1  0  1 .  ZSAVE  ( 1 0  .  1  0  ) 

: .  u  i  z  1 1 3 .  i  o  i .  v  i  z ! :  o .  i  o  i .  z  i 

REAL<8  S1C10).SZC 10).WA(10) 
INTEGER  NI 
C  INITIALIZE  MATRICES 

DO  5  I  =  1.10 
S1(I)=  0.D0 
SZ(I )  -    O.DO 
WAC I )  =  O.DO 
DO  5  J  »  1.10 
Zl  »  (O.DO. O.DO) 
UZC  .J)  =  Zl 
VZCI.J)  =  Zl 
UNITYCM .J)  »  Zl 
ZSAVEt I.J)  =  Zl 
UIZ(I.J)  =  Zl 

vizti.j)  =  zi 

5      CONTINUE 

DO  13  I  »  I.NI 

UNITYC(I.I)  ■  DCMPLXt 1.00. O.DO) 

DO  10  J  =  I.NI 

ZSAVEt I .J)  =  Z(I • J  ) 
10     CONTINUE 

CALL  CSVDCZSAVE. 10.10.N1.N1.0.N1.N1.S1.UZ.VZ1 

XCCND  =  SKI  !/Sl(Nl  ) 

RETURN 

END 

C 

C  SUBROUTINE  NORM:  NORMALIZES  THE  COLUMNS  OF  A  COMPLEX  MATRIX 

C  SUCH  THAT  I  IX  III  =  1.0 

c 

SUBROUTINE  NOSM(A.IN) 

IMPLICIT  R£AL"8(A-H.P-Z) 

COMPLEX»U  A(10.  10) 

IN-FGER  IN 

DO  10  J  =  1 .  IN 
X  =  O.DO 

00  CO  I  =  I. IN 
CO     X  =  X  ♦  DP£ALCA( I . J ) )««Z  t  DIMAGCACI . J ) )«»2 

DO  10  I  =  1 . IN 
10     AC  I .J )=  At  I .J 1/DSQRTCX) 

SETURN 

END 
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C 

C       ■        SUBROUTINE  RESULT:  WRITES  EIGENS  RESULTS  ON  FILE  08 

C 

SUBROUTINE  R£SULT(A.B.C.F.FDEL.80EL.Z«.Z5.L1 .Ml .Nl ) 

IMPLICIT  REAL»8(A-H.?-Z) 

PEAL"8  AC:0.10).SC1C.10).C(10.10).F(10.  10J.FDELC10.  10  1.S3ELC10.  10) 

COMPLEX" 1 6  Z« 1 10 . 10 ) .25  ( 10 ) .FCC  10 . 10 1 

INTEGER  LI .M1.N1 

WRITE(8.?00)L1.M1 .Nl 

00  10  I  =  1  .Ml 
10     WRITE(8.1000)(A< I .J ) .J=l .Nl ) 

DO  CO  I  =  1.N1 
•CO     WRITEC8.  1000H3CI  .J  ).J  =  1  .Ml  ) 

00  SO  I  =  1 .LI 
30     URITECS.IOOOHCU  .  J!.J=1  .Nl  ) 

DO  4  0  I  =  1 .Ml  . 
40     WRITEC8.  lOOOHFtl  ,J  )  .J=l  .LI  ) 

DO  50  I  =  1 .Nl 
50     WRITE(8.  1100  )CZ4(  I.J)  .J»l  .Nl  ) 

DO  60  I  =  1  .Nl 

60  WRITEC8.  1000JZ5U  ) 

DO  61  I  =  1.M1 

61  WRITEC8.1000HFDELCI.J).J=1 .Nl ) 

DO    6C    I    =    1  .Nl 
6C  WRITE  (8.  1000KBOEH  I.Jl.JM.Ml) 

<>30        FORMaTOIC) 
1300       FORMAT! IX.oElC.S ) 
1100      F0RMAT(1X.6E1C.S./1X.6E1C.5) 

RETURN 

END 

C 

C        SUBROUTINE  RANKO:  ANALYZES  REQUIRED  STRUCTURE  OF  RANK  DEFICIENT 

C  MATRICES 

C 

SUBROUTINE  RANKD(BC.UT.S.N,M.U0TC.U1TC.RZINVC. I  RANK. BG I  ) 

IMPLICIT  REAL»3(A-H,P-;i 

REAL "8  83(10. 10 ).S( 10).SM(10.10).RZ(10. 101.RZINVU0. 10) . 
1  U( 10. 10) .UTC10. 10) .VT(10. 10 ) .SI ( 10) . WK(50).SMI CIO. 1 0 ) . WAREA ( COO ) 
C  .  3G  I  ( 1  0  .  1 0  ) .  CG I  ( 1 0  .  1  0  ) .  BSM  ( 1 0  .  1 0  ) 

COMPLEX"  16  RZINVCdO.  10).UOTC(10.10).U1TC(10.10) 

INTEGER  N.M. [RANK 

[RANK  =  M 

DC  1  I  =  1.10 
DO  1  J  =  1.10 
BGI (I .J)  =  0.D0 
RZCI . J)  =  0.D0 
RZINVCI.J)  =  0.D0 
UOTC(I.J)  =  CO. DO. 0. DO) 
U1TCCI.J)  =  (0.CO.0.DO) 
RZINVC(I.J)  =  (O.D0.O.D0) 
U(  I  .  J  )  =  O.DO 
1      VT(I .J)  =  0.00 

do:  i  ■  i.5o 

Z  WKCI )  =  O.DO 

DO  3  I  =  l.M 

IF(S( I ) .GT.O.DOJGOTO  S 

IRANK  =  I- I 

GOTO  4 
5      CONTINUE 
4      DO  30  I  =  l.N 

DO  30  J  =  l.N 

SM( I.J)  =  O.DO 
30     UtI .J)  =  UTCJ. I  ) 

DO  4  0  I  =  l.N 

DO  40  J  =  1 . IRANK 
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40     UOTCCJ.I)  =  DCMPLX(Ud  .Jl.O.OO) 

DO  50  I  =  1  .N 

30  SO  J  s  IRANK  •  l.N 

50     U1TCU-1RANK.  !  )  =  3C.MPLXCUC  I  .  J)  .  0  .  DO  ) 
C      DO  60  I  =  1  .M 

DO  60  I  »  1 . IRANK 

DO  60  J  =  1  .M 

60    vtc.j)  :  ss:j.i: 
C     wRITE(6. ;ooo) 

C000  F0R"A7(,'5X.  'U  MATRIX'  ./) 

C  DO  1020  t  a  l.N 

COZO  WRI"E:6. 1030 ) (U(I . J ) .J=l .N) 

233C  FORMATdX.6CE12.5.1X)) 

C  WRITE(6-1040) 

CO«0  FCRMAT(/5X.  '3  MATRIX'  ./  ) 

C  DO  1050  I  a  l.N 

CC50  «RITE<6. 1030)  SCI ) 

C  MRITEt  6.  1060) 

C060  FORMAT ( /SX .' V  MATRIX'./! 

C  DO  1070  I  =  l.M 

CO  70  WRITER.  1030)  (BS(  I.J).  J  =  l  .M) 

DO  70  I  =  1  .  IRANK 

70  SMCI.I  )  =  3(1) 

CALL  VMULFFCSH.VT. IRANK. M.M. 10 . 10 .RZ . 10 . IER ) 

c    «r;te(s.:ooo) 

COOO   FCRMAT(/5X. 'RZ  MATRIX' ./) 

c    do  2:10  i=i. irank 

CO  10   WRITE!6.1030)(RZ(I . J).J  =  1 .M) 

C      TOL  =  0.D0 

C      CAI LQINF(RZ.10.IRANK.M.TOL.RZINV. 10.SI ,WK. IER) 

c    write:6.3oooi 

COOO   FORMAT ( /SX. ' «««»  SIGMA  MATRIX  PRIOR  TO  INVERSION  »«»•«•./) 
C      WR I  TEC  6.3030 )  ( (3M( I .J ) . J  =  l . IRANK) . 1  =  1 . IRANK) 
C      CALL  LINV2FCSM. IRANK. 10. SMI .O.WAREA. IER) 

DO  3001  1=1. IRANK 
3001   SMI(I.I)  =  l.DO/SMtl.I) 
C      WRITE(6.<S000) 

COOO   FORMAT(/5X. ' »»««  SIGMA  MATRIX  INVERTED  «««-'./) 
C      WRITE(6.3030)( (SMI ( I . J ) . J=l . IRANK) . 1=1 . IRANK) 
C030   F0RMAT(1X.3(E12. 5.1X11 

CALL  VMULFF(ES.3MI .M. IRANK. IRANK. 10 . 1 0 . RZ INV . 1 0 . IER ) 

DO  80  I  =  l.M 

DO  30  J  =  1 . IRANK 
80     R"INVC(I.J)  =  DCMPLXCRZINVd  .  J)  .0.00) 

CALL  VMULFF(B3.3MI.M. IRANK. IRANK. 10. 10.8SM. 10. IER) 

CALL  VMULFFCB3M.UT.M. IRANK.N. 1 0 . 10 . BGI . 1 0 . IER ) 

RETURN 

END 

C 

C  SUBROUTINE  FEEDEr:  CALCULATES  FEEDBACK  GAINS  FOR  RANK  DEFICIENT 
C  B  AND/OR  C  MATRICES  VIA  FLETCHER.  ET.AL. 

C  1°8S 

SUBROUTINE  FEEDEFCA.B.C.V.VDI.EIGDM.3GI.U1TC.C3I .N.M.L.IY. IFEED.FC 
1  ) 

IMPLICIT  REAL«8(A-H. P-Z) 

REAL*8  A(13.10).B<10.10>.C(10.10).BGI(10.10).CW(10.10). 

1  CGI  (  1  0  .  1 0  )  .  CSOS  (  1  0  )  .  TOTBS  (  I  0  )  .  33  (  1  0  )  .  SC  (  1  0  )  .  UK  t  20  0  )  . 

2  CT(10.10).CTW(10.  10).CTUT(10.  10).SCT(10).CTGItl0.10).HKl(200). 

3  WA ( 1 0 ) . COB J . COB JR . COB JL . WE  I GHL . WE  I GHR . WORK (20) 

COMPLEX « 16  AC(10.t0).8C!10.10).CC(10.10).V(10.10).FC(10.10). 

1  DQ(1 0.1 0  1.30(10.  lOI.OQNUO.  10  ) .  T0T(  1  0  .  10  ) .  TOTAdO  .  10).CQT(10.  10). 

2  UOf 10.10 l.ACSC 10.10 1.S0DC 10. 10  > . 3V0 U 0 . 1 0 > .8IC ( 1 0 . 1 0 ) .CICC 10 . 10 ) . 

3  CSCdO.lOl.TOTBdO.  10)  -CSUdO.  10).C3V(10.  10  )  .  T0T8UC  10  .  10). 

4  TOTBVdC.lOl.CSOSCdO.  10  ).T0T33C(10.  10  I.CSUTdO.  1  0  )  .  T0TBUT(  1  0  .  10) 
5.C3VCI10.  10).CSOI(10.10).TOT3S3dO.  1  0  ) .  TOTS  I  (1  0  •  1  0  )  .WM1  (10.10). 

6    WM2 (10.10).WM3(10.10). WM<S (10.10). WM5  d  0 . I  0 ) . WM6 ( 1 0 . 1 0 1 . WM  7 ( 1 0 . 1 0 ) 
7 .  »M8( 10-10) .WM?(10. 10).WM10(10.10).WM11(10.10).WM12(10.10). 
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8  WM 1  J ( 1 0 . 1 00 . WM 1 4  Ct  0 . 1 0  > . Z . E ! GOM (l 0 . 1 0 1 . BCS (1 0 . 1 0 ) . CCC ( 1 0 . 1 0 1 . 

9  TO ( 1 0 . 1 0 ) . VO I ( 1 0 . 1 0 ) . SCMP (10.10). CCMP (10.10). CCSS (10.10) 
COMPLEX  »  1 i    CSOMP ( 1 0 . 1 0 ) . WM 1 5 ( 1 0 . 1 0 ) . TTBB ( 1 0 .  1 0  )  . TOTMP ( 1 0 . 1 0 ) . 

1    WMlodO.  10).  WM17(  10.10  1.WM18C  10.10  >.WM20<  10.10  I.UMSM  10.  10). 

8    WM22U0.  10).UlTC(10.lO).CTlTCd0.10).CTOTC(10.lO).ZINCTC(10.10). 

3  AMLtlO. 10).ATMLd0.lO!.RN(10.10.10).LN(10.10.10).T(10.10). 

4  vwuo.  io ;  .wmzji  lo.ioi  .wm:4(io.  ioi  .wvr(  10 1  .wvl(io)  .ESdo.  io>  • 

5  *JMR(10.  10)  .NMLdO.  10)  .RCBJt  10).LOBJ(  1  0  )  .  UN  ITVC  ( 1  0  .  10). 

6  UOTdO.  10  l.VOdO.  10).rCT(I0.  lOJ.FCSdO.  lOl.BCFCdO.  10). 

7  BCFCCdO.  lOl.CLMdO.  10  ) . EVALU( 1 0 ) . EVECT ( 1 0 .  10). VI  (10.  10). 

8  VE  (  I  0  .  1  0  )  .  VEV  (1  0  .  1  0  )  .  VMA  <  1  0  ,  1  0  )  .  6V  (  1  0  .  1  0  )  .  FCG  CI  0  .  1  0  I  .  U I C  (1  0  .  1  0  ) 
REAL«4    OBJ.X(50).VL3(50).VUB(SO).RAC0.40).G(1 )  .DF( ZO ) . WKZ (4000 ) 
INTEGER    N.  M.L.I  FEED.  IQ.IN.IRANCT.IV.IWKdOOOl.INFO.IOGd  J.ICdO) 
WRITEC6.10) 

FORMAT(/SX. ' «»»"    PRESENTLY    IN    FEEDEF.     SINCE    RANK(C)     <    N.     ENTER"""* 

l'./5X.  ■«««.    DESIRED    DIMENSION   GF   o.H.    EIGENVECTOR    SET   FOR"""" 

Z'./5X.  ■«»»«    SPLIT   EIGENSTRUCTURE   COMPUTATION.  »«»» 

3'  ./) 

READl". 15)10 
FORMAT! II  ) 

CALL   FRTCMS( 'CLRSCRN    ') 

IN    =    N    -     IQ 
INIT    MATRICES 

DO    11     I     =     1.10 

CSOSd)    =    O.DO 

TOTSSd  )     =    O.DO 

SCTd)    =    O.DO 

MAC]    =    O.DO 

WVRd)    =     (O.DO.  0.00) 

WVLd)    *    (O.DO.  O.DO) 

ROBJd)    =    O.DO 

LOBJd  )    =    O.DO 

00    11    J    =    1.10 

Z    =    (O.DO. O.DO) 

AC (I. J)    =    Z 

BC(I.J)    =    Z 

CC(I.J)    =   z 

CW(I.J)    =    O.DO 

CT(I.J)    =    0.00 

CTM(I.J)    =0.00 

CTUT(I.J)    =    O.DO 

Td.J)    =    Z 

VU ( I . J )    =    Z 

WMC3( I.J)    =    Z 

WMZ4(I .J)     =    Z 

NMR (I.J)     =    Z 

NML( I.J)     =    Z 

OQ(I.J)    =    Z 

SOd.J)    =    Z 

DCNd.J)    =    Z 

TOT(I , J)    =    Z 

TOTAd.J)     =Z 

DQTd  .  J  I    =    Z 

UO(I .J)    =      Z 

acs( i.j)  *  z 

SOOd.  J)  =  z 
BVOd  .  J)  =  Z 
BICd.J)  =  Z 
UOTd  .J  )  =  Z 
VOd  .J)    =    z 

cicti .j)  =  z 

CSOd  .J)  =  z 
TOTBd.J)     =Z 

csu( i.j)  =  z 
csv(  i ,  j  i   =  z 

TOTBUd.Jl    =Z 
TOTBV(I.J)    -2 

csoscd.ji   =z 

TOTSSCd.J)    =    Z 
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CSUT(I.J)    =         Z 
T0T3UT(I ,J)     =    Z 
CSVC(I.J)    =    Z 
UNITYCCI.J)    »    (0. DO. 0.00) 

11  CONTINUE 

C  SUILD  CONSTANTS 

INFO  =  0 
UEIGHR  =  1.D0 

"EI3HL  =  I.  DO 
DO  12  1  «  l.N 

UNITYC(I.I)  =  (1.D0.0.D0) 

do  i:  j  =  i.n 

T(I.J)  =  VDKJ.  I  ) 

12  ACtr.Jl  «  DCMPLXCAU.J1.0.D0  ) 

00  13  I  =  l.N 

CO  1  J  J  =  1  .  M 

13  BCCI.J)  =  DCMPLXCB! I . J) .0.00) 

DO  14  I  =  l.L 
DO  14  J  =  l.N 
W(l.J)  =  Ctl  ■  J) 

14  CCCI.J)  =  DCMPLXCC(I.J).O.DO) 

C  CHECK  IF  LEFT  EIGENVECTORS  ARE  MEMBERS  OF  N(C1 «»T* ( A-LAM» I ) ) 

C  FIND  SVD  OF  C»«T 

DO  200  I  =  l.L 

00  200  J  =  l.N 

CTUTtJ.J)  =  i.DO 

CTMU.  I  )  =  CU.J) 

:oo   cTrj.i )  »  cti.j) 

Ca^l  LSVDFCCTW. iO.N.L-CTUT. 10.N.SCT.WK1 , IER) 

CALL  RANKDtCTW.CTlJT.SCT.N.L.CTOTC-CTlTC.cINCTC.  IRAHCT.CTGI  ) 

c 

C        BUILD  NULL  SPACE  OPERATORS  FOR  8  AND  C»»T 
C 

00  210  I  =  l.N 

oo  :o5  j  =  i .n 

DO  205  K  =  l.N 

AML(J.K)  =  ACtJ.O  -  EIGDM(I.I)»UNITVC(J.K) 

205  ATMLCJ.K)  =  ACCK.J)  -  EIGDMC  I  .  I  ) »UNITYC( J . K ) 

CALL  CMATMLIU1TC.AML. IY.N.N.WM23) 

CALL  CMATML(CT1TC.ATML.N-IRANCT,N.N.WM24 ) 

DO  206  J J  =  I. IV 

DO  206  <K  =  l.N 

U1CCKK.JJ)  =  U1TCCJJ.KK) 

206  RN(I.JJ.KK)  =  WM23CJJ.KK) 

DO  :07  JJ  *  l.N-IRANCT 

do  :o7  «  -   i.n 

207  LN(I.JJ.KK)  =  UM24(jj,KK) 

CO    CONTINUE 

C 

C  FIND  OBJECTIVE  FUNCTION 

C 

208  COBJ  =  0.00 

COBJR  =  0.D0 

COBJL  =  0.00 

ICONJG  •   0      ' 

CO  220  I  <•    1  .N 

IFdCONjG.EQ.  1  JGOTO  219 

DO  225  K  »  l.N 

v  =  DIMAGCEIGCMI I.I)) 

IF(Y.E0.0.D0)GOTO   20<> 

IF(K.NE.N)GOTO    20« 

ICONJG    =    1 

209  WVR(K)     =    VCK. I  ) 

225  aVLCK)     =    T(K.I) 

DO   226    JJ    =    1 . IY 
DO    226    KK    =    l.N 

226  NMRtJJ.KK)     =    RNd.JJ/KK) 

DO    227    JJ    =     1 .N-IPANCT 
DO    227    KK    =     l.N 
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F0RMATC/5X. 

•»»»» 

1 

/SX.  ' 

z 

/5X.  • 

3 

/5X.  ' 

i 

/5X,  ■ 

5 

/5X,  ' 

6 

/SX.  ' 

227    NML(JJ.KK)  =  LN(I.JJ.KK) 

CALL  CMATMLtNMR.WVR . I  V.N. 1 ,ROBJ ) 

CALL  CMATMLtNML.WVL-N-IRANCT.N. 1 .LOBJ ) 

DO  300  JJ  =  1.  IV 

300  cobjr  =  coejr  ♦  cdaescrobj < jj  )  ) 

00  301  jj  =  1 . n-iranct 

301  cc3jl  =  c2bjl  *  cda85 (losj ( jj ii 

goto  220 

219  ICONJG  =  0 

220  CONTINUE 

COBJ  =  WEIGHRhCCBJR  ♦  WEIGHL«C08JL 
OEJ  =  SNGL(C03J) 
IF(INF0.E3.1)G0T0  241 
WRITE(6.230)COBJR.CO8JL 

SUBSPACE  C0MPATI3ILILTV  TEST  PERFORMED.  »»««■. 

, 'mum  RT  SUBSPACE  RESIDUAL  «  '.612.5. '. 

'«««*  LT  SUBSPACE  RESIDUAL  =  '.£12.5.  '    ••«', 

, 'Him*  ENTER  "1"  FOR  ADS  MINIMIZATION  , 

,■„,,-  ENTER  "2"  IF  SUBSPACE  RESIDUAL  OK.         »»«■•, 

ENTER  •,3"  IF  VOU  DESIRE  TO  USE  PREVIOUSLY  ««««■. 

'«»•«  OPTIMIZED  RT  and  LEFT  EIGENVECTOR  SETS.    »■««■./ 
7) 

REA0C.231  1  IMIN 

231  FORMAT! II) 

CALL  FRTCMSC ' CLRSCRN  '1 
IF(IMIN.Ea.3)GCT0  510 
IFCIMIN.E0.21G0T0  16 
WRITE (6. 2 60) 

260  FORMATC/SX.  •  »*    ENTER  WEIGHT  FACTOR  FOR  RIGHT  E IGENSTRUCTURE  ■"«'./) 

READ(».237)WEIGHR 
WRITE (6. 261 ) 

261  FORMAT(/SX, ' ««  ENTER  WEIGHT  FACTOR  FOR  LEFT  EIGENSTRUCTURE  »«-./) 

R£ADC<.237  1WEIGHL 

CALL  FRTCMSt 'CLRSCRN  ') 

C 

C  OPTIMIZER  CODE  FOR  LEFT  AND  RIGHT  SUBSPACE  RQMTS 

C  ONLV  BUILD  ONE  DESIGN  VARIABLE  VECTOR  AND  UPPER/ 

C  LOWER  BOUND  VECTOR  PER  COMPLEX  EIGENVALUE.  AFTER 

C  OPTIMIZATION.  INVOKE  CONJUGATE  VECTOR  ROMT. 

C 

232  ISTRAT  =  0 

ICPT  =  3 
IONED  =  1 

NOV  =  2-N-N 
NCON  =  0 
IGRAO  =  0 
IPRINT  =  1000 
NGT  =  10 
NRA  =  10 
NCOLA  =  10 
C         SET  SOUNDS 

WRITE(6.235) 

235  FORMATC/5X. • •«»»  AN  ACCEPTABLE  SET  OF  R.H.  EIGENVECTORS  «««»•, /5X. 

1  ••.«««  HAVE  SEEN  COMPUTED  IN  KVECT.  ENTER  ASS  »<"•»'. /5X. 

2  •««»«  VALUE  OF  ELEMENT  TOL .  TO  SATISFV  L.H.   »»««'. /5X. 

3  '■<!<  SUBSPACE  REQUIREMENT.  «»««•,/) 
WRITEI6.236 ) 

236  FORMATC/SX. ' ««««  REAL  TOLERANCE  =   ./) 

READC.2371ER 
WRITE (6. 2 38) 
238    FORMAT(/5X.  '  i»»«  IMAG  TOLERANCE  =   mm*',/) 
READ(» .237 1EI 

237  FORMAT(F12.5) 

CALL  FRTCMSC 'CLRSCRN  ') 
C         BUILD  DESIGN  VARIAELE  VECTOR  AND  UPPER/LOWER  BOUND  VECTOR 
23°    JJ  =  1 

ICCNJG  =  0 


176 


DO  240  KK  =  l.N 

IFCICONJG.EO.  1  1GOTO  WI 

CO  240  LL  =  1 .N 

RX  =  DREALCVCLL.KK) 1 

CX  =  DIMAGCVCLL.KK) ) 

V  s  DIMAGCEIGDMCKK.KK) ) 

IFCY.Ea.O.DOJGOTO  280 
281    IFtLL.NE.NJGOTO  280 
2  62    sDV  =  NDV  -  Z-n 

ICONJG  =  1 
28  0    X(JJ)  =  3NGLCRX) 

XC JJ»1  )  =  SNGLCCX) 

vubcjj)  =  xcjj:  •  br 

VLS(JJ)  =  XCJJ)  -  BR 

IFCCX.NE.0.D01GCTO  286 

VU3CJJ-1)  =  0.0 

VUBCJJ* 1 1  =  0-0 

GOTO   235 
286         VUB(JJ-l)    *    XCJJ«1 )    -    31 

VLSCJJ*! J    =    XUJ-1 )    -    31 
235  IC(JJ)    =    0 

ICCJJ'l )    =    0 

DFCJJ)    =    0. 

DF(JJ-1 )    =    0. 

GOTO    265 

242  ICONJG    =    3 

GOTO    24  0 
265         JJ    =    JJ    ♦    2 

243  CONTINUE 

24  1    CALL  ADS (INFO. ISTRAT.IOPT. IONED. IPRINT. I3RAD.NDV.NC0N. X . VLB . VUB . 

1  CEJ.G. IDG.NGT. IC.DF.RA.NRA.NCCLA.WK2.4000. IWK. 1000) 
C  EVALUATE  OBJECTIVE  FUNCTION 

JJ  =  1 

ICONJG  =  0 

DO  265  KK  =  l.N 

IFC ICONJG. EQ. 1 1GOTO  243 

00  245  LL  =  l.N 

IF(DIMAG(EIGDMCKK.KK)).EQ.0.D0)GOTO  24  6 

270  IF(LL.NE.N)GOTO  246 

271  ICONJG  =  1 

246  V(LL.KK)  =  CyPLX(XCJJ).X(JJ»l )) 

VUICLL.KK!  =  V(LL.KK) 
GOTO  248 
245    DO  244  LLL  =  1 .N 

VCLLL.KX)  =  DCONJGCVCLLL.KK-1 ) ) 

244  VUCLLL.KK)  =  V(LLL.KK) 

ICONJG  =  0 
GOTO  245 
243    JJ  =  JJ  ♦  2 

245  CONTINUE 

CALL  LEQT1CCVW.N. 10.UNITVC.N. 10.0.WA. IER  ) 
DO  247  KK  =  l.N 
DO  247  LL  =  l.N 

247  T(LL.KK)  =  UNITVC (KK . LL ) 

CO  250  KK  =  l.N 
DO  250  LL  =  l.N 

250  UNITVCCKK.LL)  =  CO. DO. 0. DO) 

DC  252  KK  =  l.N 
252    UNITYC(KK.<K)  =  CI. DO. 0. DO) 

IFCINFO.EQ.OIGOTO  16 

GOTO  208 
C        BUILD  SO  AND  TOT. DO  AND  DON 
16     WRITE(6.251 1CO8JR.C0BJL 

251  FORMATC/5X. '«««»  RT  3USSPACE  RESIDUAL   =  '.E12.5.'   «»»»■, /5X. 

1  LT  SUBSPACE  'E3IDUAL   =  '.E12.5. './SX, 

2  ■•»■»  ENTER  "1"  TO  RETURN  TO  AD3.  EL3E    «««■•. /5X. 
j            • *»*«  ENTER  "2".  »■«« ' •/ ) 

REiOC».2:i 1IRTN 

CALL  FSTCMSCCLPSCRN  ') 
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INFO  =  0 

IFCIRTN.EO. 1 1GOTO  208 
CALL  CONOCV.N.VCON01 
CALL  COND(T.N.TCOND) 
C        DEBUG  WRITE 

WRITEfo .190) 

290  FORMAT! /5X. ' «""«  OPTIMI2ED  RT.  EIGENVECTOR  MATRIX  ««««',/) 

WRITE(i.29l)l(VCI.J).J=I.N).I=l.N] 

291  F0RMAT(2X.8(E9. 1 . IX) ) 

WR I TE ( 6 . 520 )  VCOND • COBJR 

520  FORMAT(/5X.  "  mm*  RT.  EV .  2  NORM  COND.  no.  =  '.E12.5.'  -••"«,./5X. 

1  'unit*  RT.  SUBSPACE  RESIDUAL  =  '.E12.5.'  «»««■./) 

WRITE(».292) 
2°2    FORMATC/5X.  ' <«*«  OPTIMIZED  LT.  EIGENVECTOR  MATRIX  ««««•,/) 
WRITE(b.2'U)C(T(I.J).J=l.N).I=l.N) 
WRITEto.521 JTCOND.COSJL 

521  FCRMAT(/5X. ■ »***  LT.  EV.  2  NORM  COND.  NO.  =  '.E12.S.'  ./5X. 

1  LT.  SUBSPACE  RESIDUAL  =  '.E12.5.'  ">*'./) 

C         SAVE  RT/LT  EIGENVECTORS. COND  NOS .  AND  RESIDUALS  ON  FILEDEF  10 

WRITEC10.500)((V(I.J).J=1.N).I=1.N) 

WRITE! 10.501 ) VCOND. COBJR 

WRITEC10.500)((T(I.J).J=1.N).I=1.N) 

WRITEUO.SOI 1TCOND.COBJL 
501         FCRMATUX.E12.5.  1X.E12.S) 

GOTO   511 
500  FORMATClX.4(E12.S. IX ) ) 

510  READ (10.500)1 CV(t.J).J=l.N).I=l.N) 

READC 10.501 JVCOND. COBJR 

REaD( 10.500)C(TCI.J).J=1.N).I=1.N! 

READU0.S01 1TC0ND.C03JL 

WRITEC6.520IVCCND.COBJR 

WRITEtb.521 JTCOND.COBJL 

511  DO  20  I  =  l.N 

DO  20  J  =  1 . I Q 

DOC  J. J)  =  EIGOM(J.J) 
20     S0(I .J)  =  V( I .J) 

DO  25  I  =  l.N 

OO  25  J  =  N-IQ-1 .N 

DQN(J-N»IO.J-N*IQ)  =  EIGDM(J.J) 
25     TOTCJ-N.IQ. I )  =  T( I.J) 
C  DEBUG  WRITES  AND  CONDITION  CHECKS 

CALL  CMATMLCTOT.SO. 10. N. IQ.WM22 ) 
C      WRITECS.41) 

CI     FOPMATC/5X. • ««»«  TOT  »  SO  •.««»•./) 
C      WRITE(6.42)(  (WM22( I.J).J=I.IQ).I  =  l.iai 
C2     FORMAT! 1X.4C1X.E12.5.1X) ) 
C      WRITE(b.2b) 

C6     FORMAT(/5X. ' **»»    SO  FOLLOWED  BY  TO  «««»'./) 
C      WRITE(b.27)( (DREALISOCI .J)).J=1.IQ).I=1.N) 
C7     F0RMAT(2X.2(1X.E12.5.2X) ) 

C      WRITEC6.27)(CDREAL(T0T(t .J)),I=1.IQ).J=1,N) 
C      WRITECb.28) 

C8     F0RMATI/5X. ' »«•»»  DO  FOLLOWED  BY  DON  »«««'./) 
C      WRITE (6. 27) [ CDREALtDCt I.J)).J=1.:Q).I=1.IQ) 
C      WRITE  (6.  2  7  )  (  iDREALIDGNd  ,J)).J  =  1.IN).I  =  1.IN) 
C        BUILD  U0.3V0 

CALL  CMATMLCTOT.AC. IQ.N.N.TOTA) 

CALL  CMATML(DQN.TOT. IQ, IQ.N.DQT) 

DO  30  I  =  1  .  IQ 

DO  30  J  =  l.N 
30     UOCI.J!  =  TOTA(I.J)  -  DQT(I.J) 

CALL  CMATMLCAC.SO.N.N. I  Q.ACS) 

CALL  CMATMLCSO.DQ.N. IQ.IQ.SOD) 

DO  35  I  =  l.N 

DO  35  J  =  1  .  IQ 
35     BVO(I.J)  =  ACS(I.J)  -  SOO(I.J) 
C  DEBUG  WRITES 

C      WRITE (6. 3b) 
Cb     FORMAT(/5X. ' »«»«  BVO  «»»«'./) 
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C  WRITE(6.S7H(DREAL(3V0CI.J)).J=l.ig).  t»l.N) 

C7  FCRMA7C1X.3(IX.E13.5. IX) ) 

C  HRITEC&.M) 

C8  F3=Ma"-  /5x.  '  »■■«    JOTC    *»►«•,/) 

C  wRITECo.i'H (DREALCUOtI ,J ) ) .Jsl .N) • I»l . IN) 

39  F0RMAT(1X.<U1X.E13.S.1XH 

3  =:■•:  =:•-.  •  3:w 

3  3A lG;NF(8H.10.N.M.0.D0>BGI. 10.S8.MC.IER 

C  3-__   LGINF(CW.10.L.N.O.DO.CGI. 10.SC.UK.1ER) 

DO40   I    <    l.H 

33  so  _  =  i.n 

SO  BtC(I.J)    =    DCmPlx;BGICJ).0.30) 

DO   5  0    I    =    l.N 

DO    5  0    J    =    l.L 
5C  CICCI.J)    -    DCMPLX(CGKI.J).O.DO) 

C  CALCULATE    JO«»T    a-o   VO 

CALL   3MA7«Lt'J0.c:CI3-N.L.U0T) 

call  cmatml(bicbvo.m.n.iq.vo) 
c      deb'jg  wr»tes 

call  cmathl !  bc .  3 1 c .  u .  m .  n .  bcb  ) 
call  cmatml(cc.cicl.n.l.ccc) 
call  cmatml i scs .bc.n.n.m.bchpi 

CALL   CMATMLCCCC.CC.L.L.N.CCfff  ! 
CALL   CMATMLCSIC.BC.H.N.M.MH20] 

CALL    CMATMLtCC.CIC.L.N.L.-''::  : 
C  NNITE(i.Sl) 

CI  FORMAT C /5x.  •  «-•■•    "C3SE   =>ENROSE    B*PINV(3]«8   RESULTS    ■■««"./ 

C  H)  [TE(6.52)(  ( UREAL  (BCMP(  ;.J)).J=l.M).I=l.N) 

C2  F0RMATUX.2UX.cl2. 5.  1X1) 

C  MRITE(b.5SJ 

33  F0RMAT(/5X.'»«««    "33RE    'E--3C3E   C"PINV(C)«C   RESULTS    mm*'./ 

c  -»:-E;6.54)t(OREAL;cc«R: i.j)).j=i.n).;=i.l) 

C4     F0RMATUX.6UX.E12.5.1X1) 
C      HRITEC6.55) 

C5     FCRMAT(/5X. ' ««•»  B*  «  3  ■«■«•./) 

c         mute(6.S2)udreal(hm20C1 .j)).j=i.mi.i=i.m> 

C  wRITE!6.56i 

Co  FORMAT(/5X.'*««    c    -    C '•/) 

C  «ITE(..57)((OREAL(MM21(I.J)).J»l.L).I  =  l.L) 

C7  FORMATUX.3UX.E12.5.1X)] 

C  BUILD    33>    AND    !T3T3)- 

CALL    CMATML (CC. SO. L.N. 10. C30) 

call  cma7ml(CC. so. L-f-.  ::—•';: : 
call  cmatvl:t:t.sc. io.n.m.totb; 

cai cmathlctot.bc.io.n.m.hhib! 

call  csvdics0-10. 10.l.i0.0.l.io.cs0s.csu.csv) 
call  csvoctotb.  1 0  .  ic  .  10. m.  0 .  10.  m.  totss.  t0t3u.  totbv ) 
[RAMKC  =  :o 

.0  I  *  1.1(3 
IFtCSOStI 1.GT.0.D01GOTO  60 
[RANKC  =1-1 
GOTO  61 

60  CONTINUE 

61  ;»is.<*  =  - 

:;  65  i  =  i.m 

IF(T0T3S(I).GT.0.O0)GOTO  65 

IRANKT  =  1-1 

30-3  63 
65     Ct'-'I'.-E 
63     30  70  I  »  I. I RANKC 

XV  *  1 .D0/C303( i ) 
70     CSaSC(I.I)  =  BCMPLXCXV.O.DOJ 

do  75  :  =  i .;ran<t 

XV    =    1  .DO/TOTBSU  ) 

75  rOTBSC(I.t)    =    3C"=_XCXV.0.D0) 

30    76     I     -     l.L 
DO    76    J    =    l.L 

76  C3UTCJ. I )    =    CSUU.J) 

DO   77    1    =    l.IQ 
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DO  77  J  =  1. 10 

77     T0T3UTCJ.I)  *  TOTBUII.JI 

CALL  CMATMUCSV.CSOSC. 10. IRANKC . IRANKC . CSVC ) 
CALL  CMA7MLCC3VC.CSUT. 10. IRANKC .L . C30 I ) 
CALL  CMATMLtTOTBV.TOTBSC.M, IRANKT. IRANKT . T0TBS3 ) 
CALL  CMATMLCT0T333.T0TSUT.M. IRANKT. IQ.TOTBI ) 

C        MOORE  PENROSE  TEST  FOR  C30I  AND  T0T3I 
CALL  CMATMLIWM17 .CSOI .L. IQ.L.CCC3 ) 
CALL  CMATMLCCC3S.WM17.L.L. IO.C30MP ) 
DO  91  I  =  l.L 
DO  91  J  =  1 .  10 

91  WMIS(I.J)  =  CSOMPC.J)  -  WM17CIiJ) 
C         DEBUG  WRITES 

C      WRITEI6.90) 

CO     FORMATC/SX. ' »»»«  C30  »*** 

C     1 '  ./  ) 

C  WRITEC6.S:HCDREALCWM17CI.J)  l.J  =  l.IO!.I  =  l.L) 

CALL    CMATMHWM18.T0T8I  .  IN.M.  IN.TTBB) 

CALL    CMATML(TTB8.WM18 .IN, IN.M.TOTMP) 

DO    91    I    =    1.  IN 

DO    9C    J    =     1  .M 

92  WMlotl.J)     =    TOTMP(I.J)    -    WM18(I.J> 
C  DEBUG   WRITES 

C  WRITE(6.9J) 

CI  FCRMAT(/5X.  '  »•••<»    T0T3    mi1 

C  1  ./  ) 

C  WRITE(6.5CH(DREAL(WM18(I  .J)).J  =  1.M1.I  =  1,IN) 

C  FIND    FIT 

CALL  CMATMLCWMCO.TOTSI .M.M. IQ.WM1 ) 

CALL  CMATMLIWM1 .UOT.M. IQ.L.WM3 ) 

CALL  CMATML(WMI.CCC.M.L.L.WM5  ) 
C  FIND  FIT 

CALL  CMATMHWMHO.VO.M.M.  IQ.WM6) 

CALL  CMATML(WM6.C30I .M. IQ.L.WM7) 

CALL  CMATML(WM7.CCC.M.L.L.WM8 ) 
C  FIND  FIT 

CALL  CMATMLCWMCO.TOTBI .M.M. IQ.WM9 ) 

CALL  CMATML(WM9.WM18.M. IQ.M.WM1 1 ) 

CALL  CMATMLCWM1 I . VO.M.M. IQ.MH1Z I 

CALL  CMATML(WM1C.CS0I .M, IQ.L.WM13) 

CALL  CMATMLCWM13.CCC.M.L.L.WM14 ) 
C         FIND  FCT 

DO  85  I  =  1  .M 

DO  85  J  =  l.L 
85     FCTCI.J)  =  -WMSU.J)  -  WMSU.J)  *  WM14(I,J) 
C        FIND  F IS 

CALL  CMATMLCWMCO.VO.M.M. IO.WMo ) 

CALL  CMATML(WM6.CS0I . M. IQ.L.WM7 ) 

CALL  CMATMHWM7.CCC.M.L.L.WM8  ) 
C        FIND  FCS 

CALL  CMATML1WMC0.T0TBI .M.M. I0.WM9 ) 

CALL  CMATMLCWM9.U0T.M. IQ.L.WM10 ) 

CALL  CMATMLfUMlO.CCC.M.L.L.WMl 1 ) 
C         FIND  FIS 

CALL  CMATMLCWM2  0.T0TEI • M .M . 10 . WM1 2  ) 

CALL  CMATMHWM1C.  UOT.M.  IQ.L.WM13) 

CALL  CMATML  ( WM  1 1  .  WM  1  7  .  M  .  L  .  I Q  .  WM 1 4  ) 

CALL  CMATML (WM 14. CSOI . M . IQ , L . WM1 5 ) 

CALL  CMATMLCWM15.CCC.M.L.L.WM16 ) 
C  FIND  FCS 

DO  80  I  =  1 .M 

DO  80  J  =  l.L 
8  0     FCS  (I.  J!  3-WM8U.J)  -  WM111I.J)  ♦  WM16CI.J) 
C  FINO  FCG 

DO  150  I  =  l.N 

DO  150  J  =  l.N 
350    VI ( I .J)  =  TtJ.  I  ) 

CALL  CMATML(V.EIGDM.N.N.N.VE) 

CALL  CMATMLCVE. VI .N.N.N. VEV) 
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DO  355  I    ■  l.N 

DO  355  J  =  1  .N 

355  VMA(I.j)  =  VEVCI.J1  -  AC (I. J) 

CALL  CMATMLCU1TC.VMA. IY.N.N.E3) 
WRITEC6.356) 

356  F3RMATC/5X.  '  ****    £3  »-•!»', /I 

URITE(6.315)C(ESCI .J). J=l .N). 1=1 . IY) 
CALL  CMATMLCBIC.VMA.M.N.N.3V) 
CALL  CMATMLCBV.CIC.M.N.L.FCG) 
C  DEBUG  WRITE  BOTH  FC3  AND  FCT 

wRITECb.310 ) 

310  FORMATC/5X,  '  •■"»    RIGHT  FEEDBACK  GAINS  *»»»'./) 

WRITEC6.315H CFCSCI .J).J=1.L).I=1,M) 
WR I  TEC  6.311  ) 

311  FCRMATC/SX.  '  '•>"»    LEFT  FEEDBACK  GAINS  ««««'./) 

WRITEC6.315H (FCTCI. J).J=1 . L).I=1.M) 
315    FCRMATC1X.4C  IX.EIC.5.  IX)  ) 

WR  I  TE ( 6 . 3 1 i  ) 
31b    FORMATC/5X. • «»««  GAV  FEEDBACK  GAINS  »»-»'./) 

wRITECb.315)C(FCGCI.J).J=l.L).I=l.M) 

WRITEC6.3tn) 
31C    FORMATC/SX. • »«««  SELECT  RIGHT  OR  LEFT  GAINS  »*«*'. /5X. 

1  -mm*  ENTER  "1"  FOR  RIGHT  GAINS   ««»«',/5X. 

2  '«»««  ENTER  "Z"    FOR  LEFT  GAINS    »■»«•. /SX. 

3  _   •««,,  ENTER  "3"  FOR  GAV  GAINS     k***',/) 
REA0CC31  )IG 

IFtIG.EO.1 1GOT0  320 
IF(IG.EQ.3)GOT0  3C5 
DO  313  I  =  I .  M 
DO  313  J  =  l.L 

313  FCCI.J)  =  FCT(I.J) 

GOTO  1000 
3:0    DO  3  14  I  =  1 ,M 

DO  314  J  =  1  .L 

314  FCC  I .J)  =  FCSCI .J) 

GOTO  1000 
3CS    CO  32  6  1=1 .M 

DO  ZZi    J  =  1  .L 
3C6    FCCI.J)  =  FCGCI.J) 
C        FIND  EIGENSTRUCTURE 
1000   CALL  CMATMLC3C.FC.N.M.L.3CFC) 

CALL  CMATMLCSCFC.CC. N.L.N.BCFCC) 

DO  600  I  =  1  .N 

DO  600  J  =  l.N 
600    CLMCI.J)  =  ACCI.J)  •  ECFCCCI.J) 

CALL  EIGCCCCLM.N. 10.1 . EVALU . EVECT . 10. WORK. IER ) 

WRITE (6 . 610 1 
610    FOPMAT(/SX.  '  »»«•«  EIGENVALUES  RESULTING  FROM  FEEDEF  CALC  ****■,  /) 

-»:"EC6.620 1CEVALUC I ) -  I  =  1 . N ) 
6C0    FORKATC1X.E12.5.1X.E12.5] 

WRITEC6.630) 
630    FCRMATC/SX.  '  »««>•  EIGENVECTORS  RESULTING  FROM  FEEDEF  CALC  »*«*'./) 

WRITEC6.C91  )  ( ( EVECT C t.J).J=l.N).I=l.N) 

RETURN 

END 

c. .,».»».»»«.» - n» K 

C 

C  SUBROUTINE  ALGSLN  :  SOLVES  FOR  BASE  EIGENVECTORS 

C  ALGEGRAICALLY 

C 

SUBROUT INEALGSLNCA.3.C.EIGD.E.UNITV.N1.M1.L1.V. WMAT ) 
IMPLICIT  REAL'8CA-H.P-Z) 

REAL«8  AC  10. 10 ).3( 10.3  1.CC 10. 10). UNITY (10. 10). 
1  AWKlC:S0).AWKrC;5  0).ALSLAM(10. lOl.ALINVClO.lO). 

;  wrcio. ;o).w3cio.ioi.w4cio. io).w5cio.io).w6c io. io).w7(io)  .w8(io). 

3  WMATC 10.10).W9C10).SC;0).WKC30) 

COMPLEX  "16  EIGDCIOI.ECIO. 10) .V( 10. 10) 
INTEGER  Nl. Ml. LI. Ill 
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C         CALCULATE  3LAM0MA 

DO  1000  I  =  1.N1 
C        REINIT  SLAMOHA 

DO  10  II  =  1.10 

DO  10  JJ  =  1 • 10 

ALSLAMC II . JJ  )  =  0.D0 
10     CONTINUE 
C  RECOMPUTE  ALSLAM  FOR  EACH  EIGENVALUE 

DO  50  J  *  1  .Nl 

DO  3  0  K  =  1  .Nl 

ALSLAMCJ.K)  =  0REALCEIGDC  I  )  ) "UN [TV ( J , K )  -  AU.K) 
30     CONTINUE 
C        WRITE  FOR  DE3UG 
C      DO  35  J  =  1.N1 

C      WRITE! 6. 36 ) (ALSLAMC J. K) . K=l .Nl ) 
C6     FORMAT(1X.6(E10.3. IX) ) 
CS     CONTINUE 
C  COMPUTE  INVERSE  OF  ALSLAM 

III  »  1 

CALL  LINVIFCALSLAM.Nl , 10.ALINV. 1 .AWKl . IER  ) 
C      WRITEC6.100)  III 
C         COMPUTE  C  »  INV<ALSLAM> 

CALL  VMULFFtC.ALINV.Ll.Nl ,N1. 10. 10.WC. 10. IER) 

III  =  III  ♦  1 
C      WRITE (6. 100 ) 1 1 1 
C  COMPUTE  C  »  INV<ALSLAM>  «  3 

CALL  VMULFFCWCB.L1  ,N1  .  Ml  .  1  0  .  1  0  .  W3  .  1  0  .  IER  ) 

111=  III  ♦  1 
C      WRITE (6.1 00  III  I 

C  COMPUTE  INV<C»  INV<ALSLAM>  «  8> 

C        DETERMINE  IF  PSEUDO  INVERSE  IS  REQUIRED 

IF(L1. EC. Ml )GOTO  70 
C      CALL  PINVCW3.L1 .M1.W4) 

CALL  LGINFCW3. 10.L1 .Ml .0.D0.W4.10.S.WK.IER) 

GOTO  8  0 
70     CALL  LINVCFCW3.L1 . 10. W4, 1 .AWK2. IER) 
80      III  =  III  -  1 
C      WR1TEC6, 100)111 
C  COMPUTE  8  »  INV<C«  INV<AL3LAM>  »  S> 

CALL  VMULFFC8.W4.N1.M1 . Ml . 1 0 . 1 0 . W5 . 1 0 . IER ) 

III  =  III  ♦  1 
C      WRITE(6. 100)111 
C  COMPUTE  ALINV  «  <B«INV<C»INV<ALSLAM>«8>> 

CALL  VMULFFCALINV.WS.N1 . N 1 .Ml . 1 0 . 1 0 • W6 . 1 0 . IER ) 

III  =  III  »  1 
C      WRITEC6. 100)111 

COO    FORMATC/5X. 'OP  NO.'. 12.'  DONE  IN  ALG3LN') 
C  COMPUTE  W6  «  E  AND  THE  W  MATRIX 

30  40  J  =  1 .LI 

W7(J)    =    DREAHECJ.I  )  ) 
40  CONTINUE 

CALL    VMULFFCW6.W7.N1 .Ml,  1.10.  10. W8.  10. IER) 

CALL    VMULFFCW4.W7.M1  .  L  1  .  1  .  1  0 .  1 0 . W9 . 1 0 . IER ) 

DO   50    J    =    1.N1 

VCJ.I)  =  DCMPLXCW8C J) .0.00  ) 
50     CONTINUE 

DO  60  J  =  1  .Ml 

WMATCJ.I)  =-W9(J) 
60     CONTINUE 
1000   CONTINUE 

RETURN 

END 

C 

C  SUBROUTINE  PINV:  COMPUTES  THE  PSEUDO  INVERSE  OF  AN 

C  IRXIC  REAL  MATRIX.  OUTPUT  IS  THE 

C  ICXIS  PSEUDO  INVERSE  (SEE  GOLUB  AND 

C  VAN  LOAN,  "MATRIX  COMPUTATIONS".?.  1 3 9 

C  CAUTION:::  IF  WARNING  FLAG  RESULTS  DUE  TO  ILL  CONDITIONED  A»»T  « 
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C  RECOMMEND  USING  IMSL  "UGINF"  VICE  PINV 

C 

C  SUBROUTINE  PINVCA. IS, IC.PIA) 

C  IMPLICIT  REAL-8(A-H.P-D 

C  REAL*8  A(10.  10  1  .PIAUO.  10)  .ATC  10.  10  )  .WM(10.  10J.WAREACC50  )  . 

C  1  WM1(IO.IO).?A(10.10).APAC10. 10! .TC10. 10 ) 

c  >-e;er  ir.ic 

C  FIND  A  TRANSPOSE 

c  dc  io  i  =  i.  :r 

C  DO  10  J  3  I. IC 

C  ATtJ. I  )  =  A!l .J) 

CO   .  CONTINUE 

C         FIND  AT  "  A 

C  CALL  VMULFF(AT.A.IC. IR.IC. 10. 1 0 . WM. 10 . IER ) 

C  WRITE  WM  FOR  PROGRAM  OEBUG 

C  CO  C001II  =  1 . IC 

C  WRITE C6. 2000 )(WM( II .K).K=1 . IC) 

COOO  FORMAT! 1X.6(E10.3. IX) ) 

C001  CONTINUE 

C  FIND  INV<AT  »  A> 

C  CALL  LINVCFMM.  IC.  10.WM1  .  1  .WAREA.  IER  ) 

C         'FIND  INV-.AT  «  A>  «  AT 

C  CALL  VMULFFCWM1 .AT. IC. IC. IR. 10.10.PIA.10. IER) 

C        DETERMINE  IF  PSE'JDO- INVERSE  SATISFIES  THE  M00RE-PENR03E 

C        CONDI  TI3N-.      axa  =  A 

C  CALL  VMULFF(PIA.A. IC. IR. IC 10. 10.PA. 10. IER) 

C  CALL  VMUL=F(A.PA. IR. IC. IC. 10. 10.APA.10. IER) 

C  DO  IS  I  »  l.IR 

c  ;c  is  j  =  i  •  :c 

C  TCI. J)  =  CASS(AC.J)  -  APA(I.J)) 

C5  CONTINUE 

C  URITElt.30) 

CO  FORMATC//5X.  '  »«»»  MOORE-PENROSE  TEST  FOR  PSEUDO-INV  HU '  ./5Xi 

C  1  ••-«»    ABSOLUTE  VALUEIA  -  AXA)  «-,»•,/) 

C  DO  50  I  =  l.IR 

C  WRITE(6.«0)(T(I.J).J=1.IC) 

CO  FORMATtlX.o(E10.3. IX) ) 

c:  CONTINUE 

C  RETURN 

C  END 


183 


APPENDIX  D 
RECONF 


c 

c 

C  RECONF:  RECONFIGURATION  ALGORITHM  FOR  THE  F18 

C  DYNAMIC  MODEL 

C  FILE  01  =  RECONF  DATA  ;  UNDAMAGED  F-18  SYSTEM  MATRICES 

C  (READ)  OR 

C  RECOXX  DATA  =  DAMAGED  F-18  SYSTEM  MATRICES 

C  (READ) 

C  FILE  02  =  UNDEIG  DATA  =  UNDAMAGED  F18  EIGENSTRUCTURE 

C  (WRITE)  OR  (READ)  OR 

C  OPTEIG  DATA  =  RECONFIGURED  F18  EIGENSTRUCTURE 

C  (READ) 

C  FILE  03  =  MATD9EC  DATA  FOR  "CONTROLS"  (OPTMATD) 

C  (WRITE) 

C  FILE  04  =  "LOTSEC  DATA  FOR  "CONTROLS"  (OPTPLOT) 

C  (WRITE) 

C  FILE  07  =  FRECON  (RECONFIGURED  GAINS) 

C  (WRITE)  OR  (READ) 

C  FILE  08  =  UN0A3C  DATA  =  UNDAMAGED  F18  MATRICES  FOR  NULL 

C  SPACE  ANALYSIS  FOR  ELASPACE  (WRITE  SNGL  PREC) 

C  FILE  09  =  ERSPACE  (SLOW  RIGHT  EIGENSTRUCTURE) 

C  (WRITE) 

C  FILE  10  =  RECEIG  DATA  =  RECONFIGURED  EIGENSTRUCTURE 

C  (WRITE) 

C  FILE  12  =  FXACT  DATA  =  UB1TC 

C  (WRITE  DURING  K  =  5) 

c 

c 

C  CDR  V.F.  GAVITO 

C  JUNE  1986 

C 

C 


IMPLICIT  REAL»8(A-H.0-Z) 

REAL"";  A3ING(55-55)  ■ BSING(55 . 10 ) -C31NG ( 18 • 55 ) 

DIMENSION  A(55,55).3(55-10).C(13.55).G1(55.3)-G2(10.J)-F(10. 18) 
DIMENSION  FTILDA(10.18)-CLH(55.55)-BS(55.55).UBT(55.55).3B(55) 
DIMENSION  WKB( 1 1 0 ) -CS (55 . 55 ) . UCT ( 55 ■ 55 ) . SC (55 ) . WKC( 1 1 0 ) 
DIMENSION  FTC(10-55).3F(55-55).CLMTIL(55-55).WKTC00) 
DIMENSION  WK(200).UNITY(55-55).WKl(j;00)-WAK55) 
DIMENSION  AF18(55.55).BF18(55.3).CF18(18-55)-DF13(55.3) 
DIMENSION  NAF18(2)-NBF18(2).NCF18(2).NDF18(2) 
DIMENSION  U(3)-XX(55) -DUM4 (55 ) -DUM5 (55 ) 

DIMENSION  NU(2)  .NXX(2).NDUM4(2!  .NDUM5  (2  )  •  BGI  (55  ,55  )  ,CG  I  (55  .  55  ) 
DIMENSION  CT(55-S5) 

COMPLEX" 16  E ( 55  )-X( 100.100) .DEL (55. 55) . UNITYC(55 .55 ) .XDX(55-55) . 
1  XD(55-55).XI(5S.55).XS(55.55).XOXA(55-5S) 

COMPLEX* 16  UE0TC'55.55).U81TC(55.55).BZINV(5  5.S5) 
COMPLEX" I  6  UC0TC(55-S5)-UC1TC(55.55).CZINV(55.55) 
COMPLEX" 16  3U8(55.55)>CUC(55.55).BUXD(55.55)-FC;55.55) 
COMPLEX" 16  ETIL(55)-XTIL(100.100)BGIC(55.55).CGIC(55.S5) 
COMPLEX" 16  E3LCW(24).X3LOW(55.24) .ES(55 ) -SR .0(55 • 55 ) 
CCMPLEX"8  ESING(24) 

INTEGER  K. IMOD. IWRITE. IEVECT ■ IELE . ISLOW .KFAST ■ IROW . IDIS . IRESP . 
"IRANK3. IRANKC, IROWS. ISTATE155 1 .K3TATE(55) ■  I  ORDER- IFULL.NCONT. 
"NST.NSTP, I  DAM 

CHARACTER"*  NAME 

C 

C INITIALIZE  MATRICES 

C 

DO  10  1  =  1.55 
ES(I )  =  0.D0 
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ISTATE(I)    =    0 

DO    10    J    =    1.55 

UNITYCI.J)    =    0. DO 

JNITYCd.J)    =    DCMPLX(O.DO.O.OO) 

Ct-Md.J)    =    0.D0 

OELd.J)    =    OCMPLX(O.DO.O.OO) 

XDXd.J)    =    DCMPLXCO.DO.O.DO ) 

X3d.J)    =    DCHPLX(O.OO.O.DO) 

XI  (I. J)    *    DCMPLXCO. OCT.  O.DO) 

X(I.J)    =    OCMPLX(O.DO.O.DO) 

3uxd::.j)  =  DC"oLxto.DO.a.DO) 

UBT(I.J)  =  CEO 
UCT(I.J)  =  0.00 
BGII1.JI  =  O.DO 
CGI (I. J)    =    O.DO 

USOTCCI.J)  =  DCMPLX( O.DO. O.DO) 
UB1TCII.JI  =  DCMPLXCO. DO. O.DO) 
BZINVd.J]  =  DCMPLX< O.DO. O.DO ) 
CZINVd.J)  =  DCWPLX(O.DO.O.OO) 
SS(I.J)  =  O.DO 
CStl.J)    =    O.DO 

BGICCI.J)    =    DCMPLX(O.DO.O.DO) 
CGICCI.J!    =    DCM°LX(O.DO.O.DO) 
A(I.J)    =    O.DO 

DO    15    I    =    1.55 
UNITV(I.I)    =    1.30 

um i"vc (i. i)  =  ;c*plx( l.oo. o.DO) 

DO    15    J    =    1.10 


15 

3(1. J)  =  0.30 

DO  20  I  a  1 

.  18 

do  :o  j  =  i 

.55 

:o 

Cd.J)  =  O.DO 

do  ;s  i  =  i 

55 

00  ;5  J  =  1 

3 

IKJ)  =  O.DO 

:s 

GUI. J)  ■  O.DO 

DO  50  :  =  1 

.10 

DO  10  J  =  1 

.3 

30 

g:(i.ji  =  o.do 

do  «o  ;  =  i 

10 

'DO  40  J  =  1 

18 

FTILDACI.J) 

=  O.DO 

40 

FC  J)  =  O.DO 

DO  45  :  =  1 

.COO 

45 

WKCI)  =  O.DO 

DO  50  I  =  1 

55 

50 

E( I )  =  DCMPLX(0.D 

3. O.DO) 

DO  55  I  =  1 

100 

DO  55  J  =  1 

100 

55 

X(I.J)  =  DCMPI_X(0 

.00.0. DO) 

C 

C 

IRANK3  =  0 
IRANKC  =  0 

c 

01  ■■ 

c 

READd 

100  1NAME 

READd 

110M  (Ad  .J)  .  J=l  .55).  1  = 

.55) 

HEAD CI 

100 1NAME 

READd 

liox  (sci  .j).  j=i  .  io).  i  = 

•  55) 

READt 1 

100JNAME 

READd 

llOHCGHI.  J).  J»l  .31.1  = 

.55) 

READd 

100  1NAME 

REaD( 1 

U0)((Cd.J).Jd.55).  1  = 

.  18) 

READd 

100 1NAME 

READCl 

110M  (Fd.J)  .J=l  .  18  ).  1  = 

.10) 

READd 

100 1NAME 
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100 
101 
110 

111 

c 

c— 

c 


READ(1,110)((G:MI.J).J  =  1  .31.1  =  1.10) 

REAOU.100  1NAME 

REA0(1.110)C(CLM(I.J).J=1.SS ). 1=1.551 
FORMAT' 1X.A4 ) 
FQRMAT(4I2) 
FCRMAT(4DC0.13) 
FCRMAT(6E1C.S) 


-DECISION  QUE 


CALL  FRTCMS1 'CLRSCRN  •) 
WRITE(6.150) 
FORMAT (/SX. 'ENTER  "1"  TO  WRITE  UNDAMAGED  E IGENSTRUCTLRE . 8   ' 

K         ./5X.'  SYST.  MATRICES. (READ  "RECONF"  DATA  Al 

«        , /5X.'  "UNDIEG"."UNDABC".S  "CLM". 

*    . /5X.       'ENTER  "2"  TO  READ  UNDAMAGED   EIGENSTRUCTURE  AND 
»   . /5X.      '  WRITE  SLOW  RT  3UBPACE  DATA  FOR  USE  SY 

"ERSPACE"  (WRITE  "ERSPACE"  DATA  Al  ) 
ENTER  "5"  TO  COMPUTE  RECONFIGURED  GAINS. 

(WRITE  "FRECCN"  DATA  Al) 
ENTER  "6"  TO  COMPUTE  RECONFIG.  EIGENSTRUCTURE 
AND  TIME  RESPONSE  (OPTMATD.OPTPLOT) 
ENTER  "5"  TO  COMPUTE  Q  AND  WRITE  FILE  12 
"FXACT"  DATA. 
READ!».155)K 
155    FORMAT! II) 
160    FORMATCI2) 

CALL  FRTCMSt 'CLRSCRN  ') 
ir(K.EQ.5)GOTO  Z7Z 
IFCK.EQ.4 1GOTO  311 
IF(K..E0.3)GOTO  170 
IF(K.EO.:)GOTO  170 

C STORE  UND  CL   IN  UNITY  MATRIX 

DO  165  I  =  1.55 

DO  165  J  »  1.55 

165    UNITVd.  J)  =  CLM(I.  J) 

CALL  £IGRF(CLM.55.55. 1 .E. X . 100 , WK . IER  ) 
WRITEC2. 110)( (X( I . J). J =1.55) . 1=1 .55) 
WRITEC.110)(E(I  ).  1  =  1.55) 
C      DO  156  I  =  1 .55 
C      DO  156  J  =  1.55 
C      AA  =  A( I , J) 
C156    ASINGCI.J)  =  SNGL(AA) 
C      00  157  I  =  1.55 
C      DO  157  J  =  1.10 
C      SB  =  S(I .J) 
C157    BSING(I.J)  =  SNGL(BB) 
C      00  158  I  =  1.18 
C      DO  158  J  =  1.55 
C      CC  =  C(I.J) 
C158    CSING(I.J)  =  SNGL(CC) 

C  WRITE (8.  Ill )((ASING(I .J). J=l .55). 1  =  1.55  ) 
C  WRITE (8, 111 )( (SSING(I.J).J=1 .10). 1=1 .55) 
C      WRITE (8. Ill )((CSING( I.J ).J= 1.55 1.1=1.18) 

WRITE! 11 .  11011 (UNITY! I .J).J  =  1 .55). 1  =  1 .55) 
C      WRITEt  1  1.  1  10  )  UGK  I.J  ).J=  1.3).  1  =  1.55) 
C      WRITE! 11 . 110)( (G2(I .Ji.J=l ,3) . 1=1 . 10) 

GOTO  9000 
170    READ < 2. 110 )( (X( I.J).J=1 .55). 1=1 .55) 
READ(C.110)(E(I  1.1  =  1.55) 
IF(K.EQ.3)GOTO  180 
C 

C  DECOUPLE  LATERAL  DYNAMICS  FROM  STABS 

C  DECOUPLE  LAT  VECTORS  FROM  LONG  ELEMENTS 

177    WRITE<6. 17C) 

172    FORMAT(/5X,  '  •<!•««  ENTER  "1"  TO  MODIFY  DESIRED  EIGENSTRUCTURE  mum' 
N        /SX.'«K»»  ELSE  ENTER  "0"  .  *"•«»•. 

«/  ) 

READC»,155)IMOD 


./5X. 

./5X, 
./5X. 
./5X. 
./5X. 
./5X. 
./SX. 
./) 


1S6 


CALL  FRTCMSC 'CLRSCRN  ') 

IPC IMOD.EC1.0 1GCTO  180 

CALL  FRTCMSC "CLRSCRN  •) 
C      DO  178  I  =  1.1b 
C       IFCI .LE.4 1GOTO  173 
C      IFCI.3E.9)G0T0  175 
C      GOTO  178 

C75    XCI.42)  =  DCMPLXCO.DO.O.DO) 
C      XCI.52)  =  DCMPLXCO.DO.O.DO) 
C      XCI.45)  =  DCMPLXCO.DO.O.DO) 
C      XCI.41U  DCMPLXCO.DO.O.DO) 
C78    CONTINUE 

DO  179  I  =  5.8 
C      XCI.38)  =  DCMPLXCO.DO.O.DO) 
C      X(1.3?)  s  DCMPLXCO.D0.0.O0) 

z  xci.43)  =  dcmplxco.do.o.do ) 

C      XCI.&6)  =  DCMPLXCO.DO.O.DO) 

X(I . 1  ;  =  DCMPLXCO.DO.O.DO) 

XCI.2)  =   DCMPLXCO.DO.O.DO) 

XCI.3)  =  DCMPLXCO.DO.O.DO) 

XI  I.  4)  =  DCMPLXCO.DO.O.DO! 
C      XCI.7)  =  DCMPLXCO.DO.O.DO) 
C      XII.3)  =   DCMPLXCO.DO.O.DO) 
C      XCI.17)  '    DCMPLXCO.DO.O.DO) 
C      XCI.I8)  =  DCMPLXCO.DO.O.DO) 
179    CONTINUE 
C 
C DISPLAY  DESIRED  EI 3ENSTRUCTURE  IF  REQUIRED- 


180    HRITEC6.171) 

171    FORMATI/5X. ' »««*  ENTER  "I"  TO  DISPLAY  DESIRED  EIGENSTRCTURE**** ' ■ 

1  /5X.       ENTER  "0"  OTHERWISE.  *»»*•. 

2) 

READC'.ISSIIWRITE 
CALL  FRTCMSC'  CLRSCRN  ') 
IFCIWRITE.EO.01GOTO  255 
WRITEI6.200) 
200    FORMATC/5X.  'mm*  UNDAMAGED  (DESIRED)  EIGENSTRUCTURE  OF  F18  mum'./ 

1  ) 

DO  250  I  -    1  .55.4 

URITEC6.210!I..I'1.I*2.I-3.ECI).EII*1).E(I«2).E(I*3) 
CIO    FORMATC/2X. 'EIGENVALUE  NO.  ' . 12 . 8X . 4X . ' E IBENVALUE  NO.  '.I2.12X. 

I 'EIGENVALUE  NO.  '. 12 , 12X. ' EIGENVALUE  NO.  ' , 12 . /2X.E12 .5. 1X.E12.5 . 

2  2X.E12.5.1X.E12.5.2X.E12.5.1X.E12.5.2X.E12.5.1X.E12.5./) 
211    FORMAT(2X.E'.2.5.1X.E!2.5.2X.E12.5.1X,E12.5.2X.E12.5.1X.E12.5.2X. 

1  E12.5.1X.E12.5-/) 

WRITE(6.220)(XCJ.I).XCJ.I-1).XCJ.I*2).XCJ.I»3!.J=1.55) 
22  0    FORMATC2X.E12.5.1X.E12.5.2X.E12.5.1X.E12.5.2X.E12.5.1X.E12.5.2X. 

1E12.5.1X.E12.5) 
250    CONTINUE 
C 
C COMPUTE  X»DEL«X»'<-1  (UNDAMAGED/DESIRED  EIGENSTRUCTURE) 

r- 

255    DO  260  1  =  1 .55 

DEL  CI.  I  )  =  ECU 

DO  260  J  =  1.55 
260    XSC I.J)  =  X( I . J  ) 

CALL  CMATMLCXS.DEL.55.55.55.XD) 

CALL  LEQT1CCXS.55.55-UNITYC.55.55.0.HA1. IER) 

CALL  CMATML  CXD . UNI TYC .55.55.55. XDX ) 
C 

c COMPUTE  SVO  OF  B  AND  C  (DAMAGED) 

C 

272    DO  270  I  =  1.55 

U8TCI.I)  =  1.D0  r 

DO  2  7  0  J  =  1.10 

270  8SCI.J)  =  S( I .J) 

WR I  TEC  6. 271 ) 

271  F0PMATC/5X.  '  ■  •■■  CALLING  LSVOF  FOR  B  »»«•'./) 
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c 


CALL  LSVDF (BS. 55. 55. 10 . UBT . 55 . 55 . 38 . WK8 . IER ) 

WRITEC6.275) 
:75    FORMATC/5X.  '  »««•»  LSVCF  OF  ••8"  COMPLETE  •<«««•./) 

CALL  RANK0(83.U8T.S3.55 . 1 0 . US07C . U3 1 TC . BZl NV . IRANKB.BGI ) 

WRITE(6.276)IRANK8 
:76    FORMATC5X.'  ««■<»  RANKC3)  =  '.12.'  mum") 

DO  181)  I  =  1  .  18 

UCT(I.I)  =  1.D0 

DO  C80  J  =  1.55 

CT(J, I  )  =  Ctl . J) 
C3(I .J)  =  C( I.J) 

WRITE(6.281 ) 
FORMAT(/5X.  ■  muM  CALLING  LSVDF  FOR  C  »««»'./) 

CALL  LSVDF CCS. 55. 18 . 55 . UCT . 55 . 18 . SC . WKC . IER) 

WRITEC6.282) 
FORMATt/SX. •»»»»    LSVDF  OF  "C"  COMPLETE  »»«»•. /J 

CALL  RanKD(CS.UCT.SC 18 . 55 . UCOTC . UC1TC . CZ INV . IRANKC.CG! ) 

WRITS(6.283)IRANKC 
=CRMAT(SX.  'mum  RANK(C)  =  '.12.'  »*»«•) 

IFCK.EQ.3)GOTO  2<>5 

IFCK.EQ.SIGOTO  312 


C WRITE  SLOW  EIGEMSTRUCTURE 

C 

C        BUILD  SLOW  EIGENSPaCE 

28  6    I  SLOW  =  0 

KFAST  =  0 

DO  285  I  =  1.55 

ECHECK  =  DREALCECIl) 

ECHECA  *  DABS (ECHECK) 
C             FOR  SYMMETRIC  CASES  USE  2  <  8.5D-01=>  20  STATES 
C SVMMETR  IC  CASES 


(24)  USE  2    <  7.590-01=>  24  STATES 
1.540-01  <  Z  <  7.5°D-01 
0.  <  2  <  3.540-01 


C  FOR  SEGMENT  1 

C  FOR  SEGMENT  2 

C  FOR  SEGMENT  3 

IF(ECHECA.LT.8.5O-01 1GOTO  284 
C      IF(ECHECA.LT.3.54D-01 1GOTO  284 
C      IFCECHECA.LT. 7. S900D-01 1GOTO  284 
C      IFCECHECA.GT.3.54D-01 1GOTO  284 

I  SLOW  =  I3LOW  -  1 
C ISTATE  =  VECTOR  OF  INDICES  CORRESPONDING  TO  SLOW  STATES 

I3TATEC ISLOW)  =  I 

E3L0WCISL0W)  =  EC  I ) 

ESINGCISLCW)  =  EC  I ) 

CALL  SROOTCEd  ).  1  ■  3R  .  .0125) 

WRITE(6.;«1 ) ISLOW. I ,SR 
291    FORMAT (IX. 'SLOW  STATE  NO.  '.12.'  UND  STATE  NO.  '.12.'  3  =  '.E12.5. 
•>1X.E12.S.'J'  ) 

DO  285  J  =  1 .55 

XSLOWCJ, ISLOW)  >  XCJ.I) 

GOTO  285 
284    KFAST  =  KFAST  •  1 
C KSTATE  =  VECTOR  OF  INDICES  CORESPONDING  TO  FAST  STATES 

KSTATE(KFAST)  =  I 
235    CONTINUE 

IFCK.NE.l 1GOTO  287 

WRITE(8.101)ISL0W 

WR  I  TE  ( 8  .  1  1  1  )  <  ES I NG  C  I  )  .  I  =  1  .  I  SLOW  ) 

GOTO  9000 
287    IROWS  =  ISLOW 

WRITE (9. 256) IROWS. KFAST, IRANKB. IRANKC 
25li    FORMATC4I2! 

WRITEC9. llOKECI  ).  1  =  1  .55) 

WR  I  TE  (  9  . 1 1  0  )  (  f  X  C I  .  J  > .  J  =  1  .  55  )  .  I  =  1  .  55  ) 

WRITEC9.257  1C ISTATE (I  ).I  =  1.  IROWS) 

WRITE(9.25  7)(KSTATE(I 1.1=1 .KFAST) 
257    FORMAT(40I2) 

WR I TE ( 9 . 1 1 0 ) ( ESLOW ( I ) . I  =  1 . I  ROWS  I 
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WRITEC-  110K  (XSLOW(I.J)  .  J=l  .  I  SOWS)  .  1  =  1  .55) 

MRITEl9.110}((ACI.J).Jsl.S6J.t»I.55) 

IRCW  =  55  -  IRANK3 

WRITE(9.2S6)IROW 

WRITE! 9. 110 )(( UB1TCI I .J)-J=l .55). 1  =  1 . I  ROW) 

WRITE(9.X10)((CT(I.J),J=1.18). tal.55) 

GOTO  9000 
C 

C =[NO  FTILDA  (RECONFIGURED  GAI*JS) 

C 

:95    DO  300  ;  =  1 .55 

DO  ZZO    J  =  1.55 

SH  =  331(1. J) 

3GICC1.J)  =  DCMPLXC3R.0.D0) 

CR  =  COKI.J) 

CGIC(I.J)  =  CCMPLXCCR.O.DO  ) 

AR  =  At  I . J ) 

300  XDXA(I.J)  =  XDXCI.J)  -  CCMPLXCAR.0.00 ) 

IF(K.EQ.5)GOTO    312 
SOS        CALL   CMATML(5GIC.XDXA.  10. 55.55.  SUXD  ) 

CALL    CMATMHSUXD.CGIC. 10.55. 18. FC ) 

DO    310    I    =    1.10 

DO  S10  J  =  1.18 
Z FLAG  IF  COMPLEX  GAINS  ARE  BEING  COMPUTED 

CHECK  =  D I  MAG  (FCC  J)) 

CHECKA  =  DABS (CHECK) 

IF(CHECKA.LT.1.D-03)GOTO  310 
302    WRITEC301 II. J. CHECKA 

301  FCRmaT(/5X. ' ♦♦»-  COMPLEX  FEEDBACK  GAIN  C ■ . 12, • . • , 12. • 1  =  '.E12.51 

310  FTILDA(I.J)  =  DREAL(FC(I .J  )  ) 

GOTO  314 
C 

C WRITE  FXACT  FILE  12 

C 

312    WRITEU2.  110)  ((UB1TC(  I.J).  J  =  1.55).  1  =  1.  I  ROW) 

GOTO  9000 

C WRITE  FTILDA  ON  FILE  07  AND  STOP 

C 

314    WRITE (7.1 10) ((FTILDA (I.J). J=l .18). 1=1. 10) 

GOTO  9000 
C 

Z 'EAD  FTILDA  FROM  FILE  07  AND  CONTINUE 

C 

311  READt 7. 110)( (FTILDA(I.J).J=1 .18). 1=1. 10) 

; ?IMO  EIGENSTRUCTURE3  OF  RECONFIGURED  SVSTEM 

CALL  VMULFF(FT:lDA.C. 10. 18.55. 10. 18.FTC.10.IER) 

CALL  VMULFF(3.FTC.S5. 10.55.55. 10. BF. 55. IER) 

DO  320  I  =  1.55 

DO  320  J  =  1  .55 

CLMTIL(I.J)  =  A(I.J)  ♦  BF(I.J) 
32C    AF18(I.J)  =  CLMTILCJ) 

CALL  EIGRF(CLMTIL.55.55.1 .ETIL . XTIL. 100 .WKT . IER ) 

CALL  SROOTCETIL.55.ES. .0125) 
C 

C f;no  CLM  FOR  NOMINAL  SYSTEM 

C  NOTE:  USING  CLMTIL  FOR  AF18  NOMINAL  DUE  TO  STORAGE  LIMITS 
C         CLMTIL  IS  USED  FGR  MODAL  FOLLOWING 

CALL  VMULFF(F.C.10. 18 . 55 . 1 C . 18 . FTC . 10. IER) 

CALL  VMULFFCS.FTC.55.10.S5.S5.10.3F.55.IER) 

DO  322  I  =  1.55 

DO  322  J  =  1-55 
322    CLMTIL(I.J)  =  A(I.J!  •  BF(I.J) 
C 

C WRITE  FILE  10  RECEIG  DATA 

C 

WRITE(10.U0)((XTIL(1.J).J  =  1  .55).  1  =  1  .55) 
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WRITE!  10.  110  METILCI),  I  =  1,55) 
C 
C DISPLAY  RECONFIGURED  EIGEN3TRUCTURE 

C 

WRITEC6.325) 

325  FORMATC/5X,  '  »■«»»  ENTER  "1"  TO  DISPLAY  RECONFIGURED  .»»«' 

1  ,/5X.      '**»*    EIGENSTRUCTURE.  ELSE  ENTER  "0".  .■.««• 

2  ./) 
READ(«.1S5)IDIS 
IFCIDI3.EQ.0)GOTO  400 

326  WRITE (6. 330) 

330    FORMAT(/SX. ' ****    RECONFIGURED  EIGENSTRUCTURE  »««»'./) 

DO  335  I  =  1.S5.4 

WRITEC6.210)I.I'l.I-2.I*3.ETIL(I l.ETILCI't  >.ETILCI-2).ETILCI>3) 

WRITE! 6.211 JESC: J . ES  C I ♦ 1 ) . ESC  I »2 ) .£S( I >3  ) 

WRITE  C  6.220  HXTILC  J. I ) .XTILIJ. 1*1  J .XTILCJi 1*2) .XTIL(J. I* J ) f J»l .55 ) 
335    CONTINUE 
C       WRITE (6. 33b) 

C336    FORMATC/5X. ' »»««  DAMAGED  EIGENSTRUCTURE  mum',/] 
C       DO  337  I  =  1.55.4 

C      WRITE (6.210)1-  t*l  .  I*;.  I -3.  EDAM  C  I  )  .EDAMC  1-1  )  .EDAMC  1+2)  .EDAMC  I«3) 
C      WR I  TEC  6.220 1CXDAMC J. I ) .XDAMCJ. I • 1 ) . XDAMC J, 1*2) . XDAMC J. I «3 ). J  =  l .55 
C337    CONTINUE 
C 

C DISPLAY  F  ANO  FTILDA 

C 

400  WRITEC6.340) 

340  FORMATC/SX. ' »«»*  DAMAGED  FEEDBACK  GAIN  MATRIX  **••>  ,//5X. '  COL  1-9 

1'  ./  ) 

DO  345  I  =  1,  13. 8 

WRITE  (6.346)(F(J.I).F(J.I«1).F(J.I*2).FCJ.I*3).F(J.I-4).F(J.I«5). 
1  F(J.I»6).F(J.I«7).FCJ.I-8).J=1.10) 

IFCI.GT.21GOTO  342 

WRITEC6.341 ) 

341  FORMAT C/5X, 'COL  10  -  18'./) 

345  CONTINUE 

346  FORMATC2X.9CE12.5. IX) ) 

342  WRITEC6.350) 

350  FORMATC/SX. • **»»    FTILDA  «»-»•.  //5X.'  COL  1-9'. /) 

DO  355  I  =  1  .  18.8 

WRITE  (6.346) (FTILDA (J. I J.FTILDACJ. 1*1 l.FTILDACJ. I «2 ) , FT ILDA( J . 1*3 

1  ).FTILDA(J.I'4).FTIL0ACJ,  I  -5  )  .  FT  ILDAC  J  .  I  «6  )  . 

2  FTILDACJ. 1-7 l.FTILDACJ. 1-8 ).J=1 . 10) 
IF(I .GT.21GOTO  401 

WRITEC6.3S1 ) 

351  FORMATC/5X. 'COL  10  -  18'./) 
355    CONTINUE 

C 

C BUILD  AF18.BF18.CF18.DF18  FOR  RESPONSE  CALCULATION  AND  PLOTTING 

C 

401  WRITEC6.360) 

360    FORMAT(/5X. 'm«»«  ENTER  "l"  FOR  TIME  RESPONSE  CALC.  ««««'. /5X, 

1  ENTER  "0"  OTHERWISE.  ./) 

READC.1551IPESP 

IFC IRESP.EQ.O 1GOTO  9000 

402  NAF18C 1 )  =  55  . 

NAF18I2)  =  55 

CALL  VMULFF(B.G2.55. 1 0 . 3 . 55 . 1 0 . BF 18 . 55 . IER ) 

DO  405  I  =  1  .55 

DO  405  J  =  1.3 
405    BF18CI.J)  =  GKI.J)  *  BF18(I.J) 

NBF18( 1 )  =  55 

NBF1812)  =  3 

DO  410  I  =  1.18 

DO  410  J  =  1 .55 
410    CF18U  .J)  =  C(I  .  J) 

NCF18U)  =  18 

NCF18C2)  =  55 

DO  415  I  =  13 
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DO  6  15  J  =  1.3 
415    DF18CI.J)  =  0.D0 

NDF1SC1)  =  18 
N0F18C)  =  3 
c 


C   COMPUTE  RESPONSE  "OR  500  DATA  JOINTS  AND  CREATE  OPTPLOT  DATA  FILE 


WRITECi.500 ) 
500    FORMATC//1X. 'COMPUTING  TIME  RESPONSE') 
C—  WRITE  OPTPLOT  PARAMETERS  AND  NULL  FEEDBACK  MATRIX  INTO  DATA  FILE 

IORDER  =  55 

NDUM4(1)=  IORDER 

NDUM4(2)=3 

CALL  NULLCDUM4 .NDUM4 ) 

IFULL  =  NDUM4U  )»NDUM4CC) 
C      WRITEC4.S10)  IORDER. 3. 501. 1.1 
C      WRITE(4.515)  (DUM4CI ). 1=1. IFULL) 
510  -ORMATtSIS) 
515  FORMATC5E14.7) 
C INITIALIZE  THE  STATE  AND  INPUT  VARIA8LS  

Nxxn  i=55 

NXX(D)=1 
NUU  1=3 

NUC  )»1 

CALL  NULL(XX.NXX) 
CALL  NJLL(U.NU) 


; COMPUTE  RESPONSE 

C 

WRITE  Co. 511 ) 
SCI    FORMATC/5X. •«««»  ENTER  "l"  FOR  MODAL  FOLLOWING  »*««• ./5X. 
!  •-«»»  ENTER  "0"  OTHERWISE.  mum' 

READ(». 155  1IDAM 

CALL  FRTCMSCCLRSCRN  ') 

AMP  =  1  . 

NCONT  =  1 

NST  =  0 

NSTP  =  240 

T5  =  .01CS 

DO  5C0  1=0.500 

TIME=I«TS 
C CHECK  CONTROL  PARAMETERS  AND  SET  CONTROL  INPUT 

IF  tl .3E. NST. AND. I .LE.NSTP  )  THEN 
U(NCCNT)=AMP 

ELSE 

UCNCCNT)=0.0 

END  IF 

■JRITEI4  .530  )  TIME-(U(J).J=1.3).(XXU).J=1.  IOROER  ) 

C RESET  SCALE  FACTORS  FOR  XI .  X4  .  X6  .  X7  .  X8 

C TO  RADIANS  FOR  PROPER  CALCULATIONS 

DO  800  K  =  1.10 

IFCK.LT.3.0R.K.3T.8 1GOTO  800 

IFCK.EQ.S)30T0  800 

XX(K)=XX(K)/5.7C3oD-01 
300    CONTINUE 
C MULTIPLY  AF18  BY  XX(N) 

IORDER  =  55 
c CHECK  IF  MODAL  FOLLOWING  IS  REQD 

IFtlDAM.EO.OlGOTO  5C5 

IF(XX(8).LT.0.0)GOTO  5C5 

DO  531  M  =  1 .IORDER 

0UM4CM)  =  0.D0 

DO  535  N  =  1 . IORDER 
535    DUM4(M)  =  DUM4(M)  •  CLMTIL(M.N)-XXtN) 
531    CONTINUE 

GOTO  545 
5CS      DO  540  H»l.  IORDER 
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DUM4CM)=0.0 

DO  550  N=l, IORDER 
550       DUM4CM)=DUM4;M)»AF18(M,N)«XX(N) 
540    CONTINUE 

C MULTIPLY  3F18  3V  U(N)  

545      00  560  M=l  .  IORDER 

DUM5(M)=0.0 

DO  570  N=1.3 
5  70      DUMSCM)  =  DUM5(M)»BF18(M.N)'«UCN) 
560    CONTINUE 

C ADO  AF13  XXCN)  AND  BF18  U(N)  

00  580  M  =  I. IORDER 
XX(M)=DUM4(M)-DUM5CM) 

C SCALE  XX3.XX4.XX6.XX7.XX8  TO  DEGREES  FOR  PLOTTING  PURPOSES.... 

C 

IF  CM.LT. J.0R.M.GT.8 )  GOTO  580 
IF  CM.EQ.5)  GOTO  S8  0 

:z:        xxcm)  =  xx(m)»5. 7:?6D'0i 

580  CONTINUE 
520  CONTINUE 
550  FORMAT(SE14.7) 
C 

c CREATE  OPTMATD  DATA  FILE 

C 

C      CALL  WRMATD(AF18.£F18.CF18.DF18.TS. IORDER ) 
WRITEto. a9° 1 
9«?  FORMAT!// IX, 'RESPONSE  C3MPLETE-CPMAT3  AND  OPTPLOT  DATA  FILE  CREATE 
«0'  ) 

WRITE16. 1000) 
1000  F0RMAT(//1X.  'TO  PLOT  RESPONSE  GO  TO  CONTROLS  EXEC.  SELECT  ORACLS. 
"THEN  SELECT  OPTPLOT.'. 

x/lX.'YOU  MUST  8E  AT  A  618  TERMINAL') 
«000   STOP 

END 

C 

C  SUBROUTINE  CMATML  (COMPLEX  MATRIX  MULTIPLICATION) 

C 

C  COMPUTES:  YY  =  AA  «  S3 

C  IA  =  8  OF  ROWS  IN  AA 

C  LL  =  *  OF  RCWS  IN  ?8  AND  »  OF  COLUMNS  IN  AA 

C  IB  =  s  OF  COLUMNS  IN  SB 

SUBROUTINE  CMA"ML(AA.SB. IA.LL. I3.YY) 
IMPLICIT  REAL«8(A-H.0-Z) 

COMPLEX" 16  AA(55.55).SB(55.55).YY(55.55) 
INTEGER  IA.LL- IB 
DO  30  I  =  1. Ia 
DO  20  J  =  LIB 
YYCI.J)  =  (0.D0.0.D0) 
DO  10  INDEX  ■  l.LL 

YY(I.J)  =  YYCI.J)  •  AACI. INDEX)  «  SB(INDEX.J) 
10     CONTINUE 

20      CONTINUE 
30     CONTINUE 

RETURN 

END 

C 

C  SUBROUTINE  RANKDi  COMPUTES  REQUIRED  BLOCK  STRUCTURES  OF  SVD 

C  OF  "8S"  FOR  USE  IN  EIGENSTRUCTURE  ANALYSIS 

C  CDR  V.F.  GAVITO 

C  JUNE  1«86 

C  NOTE:  R2INVC  IS  NOT  BEING  COMPUTED  !!! 

C 

SUBROUTINE  RANKD(B3.UT.S.N.M.U0TC.U1TC.RZINVC. IRANK.BGI ) 

IMPLICIT  REAL"8CA-H.0-Z) 

REAL»8  BSC55.55).S(SS),SM(55.55 ).RZ(S5.SS ) . RZINVC55 . 55 ). 
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1    U(55.55).UT{55.S5).VT(55.55).SI(55).MK(50).SMI(55.S5)>UAREA(200] 

:.BGI(S5.55).BSM(55.55) 

COMPLEX"  1  6    RZINVC (55  .  55  i .  UOTC (55  .  55  ) .  Ill  7C  (55  .  55  ) 

INTEGER    s.M. IRANK 
IRANK    =    H 

DO  I  I  »  1.55 

DO    1    J    =    1.55 
EGKI.J)    =    3. DO 
RZ(I.J)    =    O.DO 
RZINVU.J)    =    O.DO 
UOTCd.Jl    =    (O.CO.C.DO) 
U1TCU.J)    =    (0.00-0. DO) 

rzinvcu.j)  =  io.do.o.do) 
uci.ji  =  o.oo 

SM(I.J)  =  9. DO 
SMI(i.j)  =  O.DO 
1      VT(!.j)  »  O.DO 

do  ;  i  =  1.50 
:    -.<:;)  a  o.oo 

DO  5  I  =  l.M 

Ir(S(I 1.GT.0.D01GOTO  3 

:  =  :«  =  :-i 

GOTO  4 
3      CONTINUE 

«      DO  JO  I  •  l.N 

DO  50  J  =  1  .N 
30     U(I.J)  s  UT(J.I) 

DC  «0  I  =  l.N 

DO  40  J  *  1. IRAN* 

«o    uotc(J.I)  =  dcmplx(uu.j).o.do) 

DO  SO  I  =  l.N 

DO  SO  J  =  IRANK  ♦  1 .N 
50     U1TCU-IRANK.  I  )  =  DCMPLX(U( I . J) .O.DO) 
C      DO  5  0  I  *  1 .  M 

DO  40  I  *  1. IRANK 

DO  »0  J  =  l.M 
iO     VT(I.j)  s  3S(J.I) 

DO  70  I  =  l.IRANK 
70     SM(I.I)  »  3(1) 

CALL  VMULFFtSM.yT. IRANK.M.M.55.55.RZ.55. IER) 
CSS3SS3S333333333S33NOTE:  RZINV  IS  NOT  COMPUTED333333333S3333333S3S3SSS 
C 

C      CALL  u3InF(RZ. 10. IRANK. M.TOL. RZINV. 10. SI .WK. IER) 
C 

DO  3001  1  =  1.  :  =  -■■- 
SOOl   SMKI.II  =  l.D0/SM(I  .  I  ) 

CALL  VMULFF(SS.3MI .M. IRANK. I  RANK . 55 . 55 . RZINV . S5 . IER) 

DO  8  0  I  =  l.M 

DO  80  J  =  1. IRANK 
30     RZINVC(I.J)  =  OCHPLX(RZINV(I.J).0.00) 

CALL  VMULFFI3S.SMI  .M.  IRANK .  IRANK .  55  .  55  .  S3*  .  55  .  IER  ) 

CALL  VMULFFC33M.UT.M. IRANK . N . 55 . 55 . BGI .5  5. IER ) 

RETURN 

END 

Eim«» «» S'jSSC'-'InE  -»"atd  ,,...»..«»».««»«» 

C 

3  wRrATD  HRI*E3  THE  'AF18'.  '3F18'-  'CF18'.  AND  'CF18' 

C      MATPICIE3  TO  THE  OPMATD  DATA  FILE.  EXTRA  NULL  MATRICIES  ARE  ALSO 

C      :  =  EA"D  AND  STORED  TO  CONFORM  TO  THE  OPMATD  DATA  FILE  STRUCTURE. 

C      TMESES  -a-5:c:E3  ARE  THE  'GamO'.  'FD'.  'FK'.  '3D'.  'RD*.  'VI'. 

C      'VC  .  AND  'SD' . 

c 

SUBROUTINE  -="AT0 - AO . 3D . HD • GD . DELT . IORDER ) 

IMPLICIT  REAL«8(A-H.O-Z) 
C 

C      F18  3VSTEM  MATRICIES 
C 
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DIMENSION  AD (55. 55 ) . 8D155.3 ) .HD( 14 .55  )  .GD<  14  .  3  ) 
C 

C      EXTRA  MATRICIES  REQUIRED  IN  OPMATD  DATA  FILE 
C 

01  MENS  I  ON  FD(5S.3).FK(S5. 14 ).QD( 14. 14 ) . R0< 3 . 3 ) . V? (14 . 14 ).SD(55. 14) 

c 

DIMENSION  NFD(2)  .NFKC).NQD(2).NRD(2).NVC(C).NSD(2  ) 
INTEGER  IORDER 
C CREATE  NULL  MATRICIES  TO  BE  STORED  ON  OPMATD 

NFD(1 )  =  3 

NFD(C)= IORDER 

NFKtl)= IORDER 

NFKC:>=14 

NQDd  1  =  14 

N0DC)  =  14 

NRD(1)=3 

NROCC 1=3 

NVC(1 )=14 

NVC(C)=14 

NSD(1 )=ICRDER 

NSDC)  =  14 
C 

CALL  NULL(FD.NFD) 

CALL  NULL(FK.NFK) 

CALL  NULLCQO-NQD) 

CALL  NULL(RO.NRD) 

CALL  NULLCV2.NVC ) 

CALL  NULL(SD.NSD) 
C WRITE  MATRICIES  TO  OPMATD  DATA  FILE 

I  =  0 

IANS  =  1 

IDOPTD  =  1 

WRITEI3.150)  I. IANS. IDOPTD 

WRITE (3. ICO)  IORDER. 3. 14.0.1 .DELT 

WRITE(3.131) 

WRITE (3. 130)  t(AD(I.J).J  =  l . I  ORDER  1.1  =  1. IORDER) 

WRITE(3. 13;> 

WRITE (3. 130)  ( (BD( I. J).J=1 .3) . 1=1 . IORDER) 

WRITE(3.133) 

WRITE (3. 130)  ((HD(I .J ).J=1. IORDER). 1=1 . 14 ) 

WRITE13.135) 

WRITE (3. 130)  ((FD(I.J).J=l.IORDER).I=1.3) 

WRITE (3. 136) 

WRITE (3. 130)  ( (FK( I.J) .J=l . 14 ) . 1=1. IORDER) 

WRITE(3. 137) 

WRITE (3. 130)  t(GD(I.J).J=1.3).I=1.14) 

WRITE(3. 138) 

WRITE  I  3. 130)  ( (QD(! .J) .J  =  l . 14) . 1  =  1 .14) 

WRITE (3. 139) 

WRITE (3. 130)  <(RD( I. J). J =1.3 ).I=1.3) 

WRITE(3.141 ) 

WRITE (3. 130)  ((VI (I. J). J =1.1 4). 1=1. 14) 

WRITE(3.142) 

WRITE (3. 130)  ( (3D( I . J),J=1 .3). 1=1 . IORDER) 

C 

ICO    FORMAT(5I5.5X.F10.5) 

130  FCRMAT(4D20. 13) 

131  FORMAT! IX. CHAD) 

132  FORMAT(IX.CHBD) 

133  FOPMATUX.2HHD) 

134  FORMAT ( IX. 4HGAM0) 

135  FORMAT! IX. 2HFD) 

136  FORMATUX.2HFK) 

137  FORMATUX.2HGD) 

138  FORMAT! IX. 2HQD) 

139  FORMAT! IX. 2HR0) 

140  FORMAT!  U.CHV1  ) 
14  1  FORMATUX.2HV2) 
142    FORMAT (1X.CHSD) 


194 


ISO    FORMATCIl.SX.Il.JX.il) 
RETURN 
END 

C 

C  SUBROUTINE  SSOOT:  CONVERTS  Z-PLANE  ROOTS  TO 

C  3-PLANE  SOOTS 

c 

C  CDR  V.r.  GAVITO    JULY  1986 

C 

SUBROUTINE  SROOTir.N.S.T) 
IMPLICIT  REAL^8CA-H.0-Z) 

CCMPLEXM6  ZC55 1.SC55) 
INTEGER  N 
00  10  I  =  1  •  N 
S3  =  DIMAGtrt I ) ) 
RC  =  CREALCZC I ) ) 
3  =  (DATANCCRS.RC) )/T 
R2  =  CDABSCZ:i ) ) 
A  =  -DLOGCRO/T 
SCI)  =  DCMPLXt-A.B) 
10     CONTINUE 

RETURN 
END 
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APPENDIX  E 
ERSPACE 


c 

C       ERSPACE:  TESTS  IF  DESIRED/UNDAMAGED  SLOW  RIGHT  EIGENVECTORS 

C  ARE  MEMBERS  OF  THE  DAMAGED  RIGHT  HAND  NULL  SPACES. 

C  AND  WRITES  DATA  FILE  FOR  USE  8Y  ELSPACE 

C 

C  CDR  V.F.  GAVITO 

C  JULY  1986 

C 

C  FILE  01  =  ERSPACE  DATA 

C  (READ) 

C  FILE  08  =  ELSPACE  DATA  (LEFT  EIGEN3PACE  DATA) 

C  (WRITE) 

C»*«««m«««»«« ««»«» n.h » khxkxhn <»«•■ 


IMPLICIT  PEAL '8  I  A-H.  0-2) 

DIMENSION  A(S5.55).RESR(24).CT(55.55).WA(55).UNITYC55,55J 
COMPLEX"  16  XC55.55),E(55},XSC55.5S).T(55.55).T3L0H{55.24) 
COMPLEX"  16  U1TC(55.55)tAML(55.-S5).£IGDC24).VDC55.2«>.Z1.V(55»2«) 

COMPLEX" Id  UNI TYC (55 . 55 ) . RNULLC (55 ■ 55 ) • WV (55 ) . WV1C ( 55 ) . 
1  RE3(45.24).ESLOW<2<;)  . XGL0W<55.24)  -22 

REAL"*  SWV(110).VLB(110).VUB(110) -G( 1 ) -RA( 1 1 1 . 1 1 1  ) . 

1  WK3C?000).A3ING(S5.55).CT3ING(55.18) -ER3 • ECS. XRS- XC3. 

2  TR3.TC3.UR3-UC3 

C0MPLEX»8  E3ING(24) . TSLING(55 .24 ) .X3LING(S5 .24 ) -XSING(55 . 55 ) 

COMPLEX'S  EING(SS) .U13T(55.S5) 

INTEGER  N1.M1-  IE.E-IWK(  1000).  IC(  110).  IDG(1  )  .  IY.  I  RANK.  IROWC55  -24 ) 

INTEGER  DF( 1 1 1 ) , ISTATE(55 ) .<3TATE(55 ) . IR0W3.KFA3T. IARB(55 ) • IUCT1 
C 

C READ  FILE  01  (ERSPACE  DATA) 

C 

READf 1 -ZJIROWS.KFAST, IRANKB. IRANKC 

READ(1.3)(E(I 1.1*1.551 

READ<1,3H(XC  .  J  ) .  J=  i  .55  ) .  I  =  1  .55  ) 

READ(1.4)(I3TATE(I).I=1,IR0W3) 

READt 1 .4)(K3TATE( I ) . 1=1 .KFA3T) 

READ( 1 . 3 ) ( ESLOHt 11-1=1. [ROWS ) 

READU  • 3)(<X3LOW<  I  .J).J  =  1  . IRCWS)  .  1  =  1  .55) 

READd.  3)((A(I.J).J=l,5S).I=l.SS) 

READ(1-2)IUB1 

READ(1.3)((U1TC(I,J).J=1.53).I=I.IUB1) 

READ(l-3)((CT(i,J).J=l .18). I =1.55) 

2  FORMAT(4I2) 

3  FORMAT(4D20. 13) 

4  FORMAT(40I2) 

5  FORMAT(6E12.5) 
C 

C INITIALIZE  CONSTANTS 

C 

CALL  FRTCM3CCLR3CRN  ') 

Nl  =  55 

T3TEP  =  1.25D-02 

DO  6  I  =  1-N1 

DO  6    J  =  1-N1 

A3INGU.J)  =  3NGL(A(I  ,  J)  ) 

UNITY(I.J)  =  0.D0 

6  UN  I TYC (I. J)  =  DCMPLX(0.D0.0.D0 ) 

DO  10  I  =  1.N1 
UNITY(I.I)  =  1.D0 
UNITYC(I.I)  =  DCMPLX( 1 .DO .OiDO) 
DO  10  J  =  l.IROWS 
10     V(I  .J)  =  XSLOWd  ,J) 
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ICONJG  =  0 


-DISPLAY  SLOW  EIGENVALUE  INDICES  FOR  ARBITRARY  ELEMENT- 
SELECTION 


C 

WRITE! 6. 11 ) 

11  FCRMATC/5X.  •  «-•<«  INDICES  OF  SLOW  EIGENVALUES  »-•.»'./) 

HRITEtfi . 12 ) ( ISTATEC I ) . 1= I . IROWS ) 

12  FORMATC5(2X, I2.2X) ./ ) 
C      KR I  TEC  6. 14) 

C4     FORMATC/5X. ' ««»«  ENTER  NO.  OF  ARBITRARY  EIGENVECTOR  »««»'. /5X. 

C     1  'mime  FOR  ADS.  ,»»,.  ,/j 

C      READC«.2)IELE 

C      URITEC6.131IELE 

CI     FORMATC/5X.  '  ««»»  ENTER  ROW  NOS.  OF  THE  'tI2.'  ARBITRARY    «■<-.•. 

C     1/5X.        ■nana  ELEMENTS  IN  12  FORMAT.  ,«.<•,/) 

C      READ(«.4)(IAR8CI ). 1=1 . IELE) 

5 =nR  RECR25  THERE  ARE  27  ASS  ELEMENTS  NOT  INCLUD  STABS 

C      IELE  =  36 

IELE  =  27 
C  DO  13  M  =  1.28 
C3  IAR3(M)  =  M  •  8 
C  DO  14  M  =  29.34 
C4  lARB(M)  =  M  ♦  9 
C  IARS(3S)  =  45 
C      IARB(36)  =  47 

DO  13  M  =  1.27 

13  IAS3(M)  =  M-16 
170    DO  55  I  *  1. IROWS 

23  =  ESLOWCI ) 

DO  56  J  =  1.N1 

DO  5b  K  =  1.N1 
5b     AML(J.X)  =  DCMPLX(A( J.K) .O.DO)  -  Zl "UNITYC ( J . K ) 

IY  =  IUB1 
44     CALL  CMATMLtUlTC.AML. IY.N1 ,N1 .RNULLC) 

DO  5  7  J  =  l.Nl 

57  WV(J )  =  VCJ. I ) 

59     CALL  CMATMLC RNULLC. WV. IY.N1 . 1 .WV1C) 
DO  58  J  =  1  .  IV 

58  RESCJ. I  )  =  WV1CCJ) 

C         FIND  2-NORM  CF  THE  RESIDUAL 

Y  =  O.DO 

DO  76  J  =  1  .  IV 
7b     V  ■  V  ♦  DREAL(RES;j. II )»«2-  DIMAG(RES( J . I )  !»"2 

ROBJ  =  D3CRT(Y) 

RESRU  )  =  ROEJ 
C  IF  2-NCRM  OF  RESIDUAL  13  OK  —  JUMP  OUT 

IFCROBJ.LE.l.DCOlGOTO  55 
C      GOTO  5S 

C 

C  IF  EIGENVALUE  IS  COMPLEX.  THEN  PERFORM  THE  OPTIMIZATION 

C         ONE  TIME  FOR  BOTH  THE  EIGENVALUE  AND  ITS  CONJUGATE. 

C 

961  IFtDIMAGCZl ).EQ.0.D0)GOTO  960 

IF( ICONJG. EQ. 1 1GOTO  97 

ICCNJG  =  I 

C INITIALIZE  ARBITRARY  ELEMENTS  (FAST  ELEMENTS) 

960    DO  100  II  =  I. IELE 
100    IRCWCII.I)  =  IARB(II) 

C 

C         SET  UP  FOR  ADS  OPTIMIZER  CALL  IN  SINGLE  PRECISION  FOR  RESIDUAL 

C 

962  3R03J  =  SNGL(ROBJ) 

INFO  =  0 
ISTRAT  :  0 
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IOPT  »  5 

IONED  =  1 

NOV  =  :»N1 

NCON  =  0 

IGRAD  =  0 

IPRINT  a  1000 

NGT  =  0 

NRA  =  55 

NCCLA  =  110 

CALL  SROOTCZ1  .ZZ.TSTEP) 

WRITEC6.?S3)I ,Z1.Z2. I  STATE  CI ) 
963    FORMATC/5X. •»**»    ENTERING  ADS  FOR  ESLCW C ' . IC . ' )  Z  =  '.E1Z.5.1X. 

1  EIC.S.'J   «■.»•<•  ./5X.  ■<•>-•.■  .:8X. 'S  =  ■ .E1C.5. 1X.E1Z.5. ' J' ./SX. 
Z     ■«-»»    UNDAMAGED  EIGENVECTOR  NO.  ',IZ,/1 
C        SET  HOUNDS 
C        A3K  ALLOWED  TOLERANCE  ON  DESIGN  EIGENVECTORS 

IFCIELE.EQ.0-1GCTO  1007 
1008   URITEC6. 1003 ) 

1003  FORMAT ( /5X. ' »>«»  ENTER  REAL  UPPER  SOUND  OF  ARBITRARY  ELEMENTS  «»»« 

t'./SX.     •««•.«  IN  "F12.5"  FORMAT.  ENTER  "  1"  FOR  NO  30UND.     ""'I 
READC.IOZOIUR 

IFCDIMAGCZ1 J.NE.O.DO 1GOTO  1015 
UC  =  0. 
GOTO  1016 

1015  WRITE(6. 1004) 

1004  FORMAT C /5X. ' »»*»    ENTER  IMAG  UPPER  SOUND  OF  AR3ITRARV  ELEMENTS  "-' 

l'./5X.    '»*»*    IN  "Fir.5'-  FORMAT.  ENTER  "1"  FOR  NO  30UND.    .««■•) 
READ(«. io;oiuc 

1016  IFCUR.NE.  l.£<-0b  1GOTO  1006 

UR  =  0. 16*21 

1006  IFCUC.NE.l.E'ObJGOTO  1005 

UC  =  0  .  1 E  •  S  1 

1005  IFCIELE.EO.NIJGOTO  1013 

1007  WRITEC6. 1010) 

1010  FORMAT(/5X.'»»«»  ENTER  ALLOWED  EIGENVECTOR  TOLERANCE  IN  "FIZ.S"  FO 

1RMAT  »«»«'  ,/5X. '«■■*«  FOR  THOSE  EIGENVECTOR  ELEMENTS       *»•* '  t/5Xi 
Z  •«•...»  WHICH  ARE  NOT  ARSITRARY.  »»»«',/) 

URITEC6. 1011 ) 

1011  FORMATI5X.  '  «»■•"  ENTER  TOLERANCE  ON  REAL  PART ./) 

REAOC". 10C0IEP5R 
10C0   FORMATCFIC.S) 

IFIDIMAGIZ1 J.NE.O.DOIGOTO  1017 
EPSC  =  0. 
GOTO  1013 

1017  WRITEI6. 10IZ) 

101Z   FORMATC5X.  '  •"""<  ENTER  TOLERANCE  ON  IMAG  PART  **»*•,/) 

SEADt'.lOCOIE'SC 
1013   CALL  FRTCMSCCLRSCRN  ') 

JJ  =  0 

DO  77  J  »  l.NDV-1 .Z 

JJ  =  JJ  ♦  1 

KFIND  =  0 

IFCIELE.EQ.O 1GOTO  1026 
10U   DO  10C5  X.    =  1.  IELE 

IFCJJ.NE. IROWCK. I ) 1GOTO  10Z5 

KFIND  =  1 

VUB(J)  =  UR 

VUBC J'l )  =  UC 

VLB(J)  *  -UR 

VLBtJ'l )  =  -UC 
IOCS   CONTINUE 

C NOTE:  PRESENTLY  THE  ENTIRE  VECTOR  IS  ALLOWED  TO  VARY  BY  AN 

C  AMOUNT  EOUAL  TO  EPSR.EP3C.  INPUT  EPSR =EPSC=0 . OOCURRENTLY 

C      IFCKFIND.EO. 1 1GOTO  10C7 
1026   XX  =  DPEAL(X3L0W(JJ. I ) ) 

YY  =  DIMAG(X3L0W( JJ. I ) ) 

VUB(J)  =  SNGLCXX)  t  EPSR 

VUECJ'l)  =  SNGL(YY)  ♦  EPSC 

VLB(J)  =  SNGLCXX)  -  EPSR 
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VL3CJ-»1)  =  3NGLCW)  -  epsc 
1017   XI  =  DREal(UVCJJ)  ) 

VI  =  OIMAGCWVCJJ ) ) 
SWVU)  *  SNGLCX1 ) 
3WVU-1 )  =  SNGLCV1 ) 
IC(J)  =  0 

ic;j«i )  =  o 

DF(J)  =  o 
DFU*1 )  =  0 

77  continue 

34    call  ads;  info,  istrat.  iopt.  ioned.  i print,  igrao.ndv.nccn.swv.vlb. 

1    VUB.3R03J.G.  IDG.NGT.  [COF  •  RA  .  NRA.  nCCLa.WKJ  .  ?C00  .  iWK.  1000  ) 
jj    =    0 

do  78  j  =  l . Nov- 1 . z 

JJ  =  JJ  »  1 

WVCJJ)  =  CMPLX(SWV(J ) .SWVCJ-1 ] ) 

78  v(jj. I )  =  wvtjj ) 

:rt:NPo.Eo.0)GOTo  54 

C  REEVALUATE  OBJECTIVE  FUNCTION 

CALL  CMATMLCRNULLC.WV.IV.N1.  1  ,WV1C) 

DO  81  J  =  1. IV 
8C     RES(J. I )  =  WV1CCJ) 

V  =  0.00 

DO  33  J  =  1 .  IV 
85     v  =  V  -  DREAL(RES(  J.  I  )  !-«2  -  DIMAGCRESC  J  .  I  )  )  >-»2 

ROE J  =  DSORTCV) 

RESRCI  )  =  ROBJ 

SROSJ  =  3NGLCROBJ) 
C  CONTINUE  WITH  ADS  OPTIMIZATION  (MINIMIZING  ROSJ ) 

GOTO  34 
54     WRITE(6.9S)R03J.I 
"5     FQRMATt/lx.  ■  »«»«  OBJECTIVE  FUNCTION  VALUE  =  ' .E10.3.'  •  «■««'. /1X. 

1  ■»!.»«  ?0R  EIGENVECTOR  NO.  '.ID.'  »«»»■./) 

IF(DIMAG(Z1 >.EO.0.O0)GCTO  55 

IFCICONJG.EO.DGOTO  55 
97     DC  "8    <  =  1.N1 

ICOnjG  =  0 
a8     XSLOWCK.I)  =  DCONJGtVtK. 1-1 ) ) 
5  5     CONTINUE 

; DISRLAV  RESULTS  OF  <U1T»<A-LAMDHA» I>>»0ESIRED  3A3E  EIGENVECTORS — 

CALL  FRTCMSt 'CLRSCRN  ') 
WRITEU.65) 
65     FORMAT(//5X.  ■  »<4««  THE  FOLLOWING  VECTOR  DISPLAYS  THE  NEARNESS  OF   » 

l<»'i/5X.   •«»»»  EACH  SLOW  EIGENVECTOR  TO  THE  ALLOWABLE  RIGHT     » 
:•«»'. /5X.   •«»*«  HAND  SLOW  EIGENSPACE  FOR  THE  DAMAGED  F18  MODEL.  ■ 

:--«■ ./) 

WRITEC6.60HRESRC  )  .  1  =  1  .  I  ROWS! 
60     FCRMATtZX.DIO. 13 ) 

WRITE(6. 150) 
150    FCRMAT(/5X. ■ «»»»  ENTER  "1"  IF  RESIDUAL  IS  UNSAT  TO  RENTER  ADS  ««»» 

1  -./5X.     ■  ***■*    ELSE  EN'ER  "0".  »«»» 

2"  ./] 

READ(».155)I0PT 
155    FORMATCIl) 

CALL  FRTCMSt 'CLRSCRN  •) 

IF(IOPT.EO.0)GOTO  160 

DO  165  J  =  1 . IRCWS 

DO  165  I  =  1.55 
165    XSLOUt I.J)  =  V( I • J ) 

GOTO  170 
160    DO  9  3  <  =  I  .IRCWS 

00  93  J  =  1.55 

KK    -    ISTATE(K) 

=3      X(J.KK)  a  VCJ.K) 


C SIND  LEFT  HAND  EIGENVECTOR: 

c 
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DO  175  I  >  1.55 
DO  175  J  =  1 .55 
175    XS(I.J)  =  X(I.J) 

CALL  LEQT 1C  CXS  .  55  .  55  .  UN  I  TVC  .  55  .  55  .  0  .  WA .  IER  ) 
DO  ISO  I  =  1.55 
DO  180  J  =  1.55 

180  T(J.I)  =  UNITYCU.J) 
C        RE  I  NIT  UN  I TVC 

DO  181  I  =  1 .Nl 
DO  181  J  =  l.Nl 

181  UNITYC(I.J)  =  3CMPLX(UNITV(I.J) ,0.00) 
C 

C BUILD  SLOW  LEFT  HAND  EIGENVECTORS 

C 

DO  185  J  =  1 . IROWS 

DO  135  I  =  1 .55 

KK  =  ISTATECJ) 
185  TSLOWU.J)  =  T(I.KK) 
C 

c WRITE  FILE  08  FOR  USE  BY  ELSPACE  IN  SINGLE  PRECISION- 

C 

WRITE (6. 198 ) 
198    FORMATC/5X.  '  * » <• «  WRITING  ELSPACE  DATA  FILE  08  «««»•./) 

DO  190  I  =  1.55 

SR  =  OREALIECI 1 1 

EC  =  DIMAG(ECU) 

ERS  =  SNGL(ER) 

ECS  =  SNGLCEC) 

EING(I)  =  CMPLX(ERS.ECS) 

DO  190  J  =  1.55 

XR  =  DREALtXt I . J  )  ) 

XC  «  DIMAGtXd.J)  ) 

XRS  =  SNGLtXR) 

XCS  =  SNGLtXC) 

XSING(I.J)  =  CMPLXIXRS.XCS) 
190    ASINGCJ.K)  '    SNGLtA(J.K)) 

DO  195  J  =  1.55 

DO  195  K  =  1  .  18 

195  CTSINGCJ.K)  s  SNGLCCT(J.K)) 

DO  196  I  =  1. IROWS 

ER  =  DREAL(ESLOw(I ) ] 

EC  =  DIMAGCESLOWII  )  ) 

ERS  =  SNGL(ER) 

ECS  =  SNGL(EC) 

ESING(I)  =  CMPLX(ERS.ECS) 

DO  196  J  =  1 .55 

TR  =  DREAL(TSLOW(J. I  1  ] 

TC  =  DIMAG(TSLOW(J. I ) ) 

TRS  =  SNGL(TR) 

TCS  =  5NGLCTC) 

XR  =  DREAL(XSLOWCJ. I  )  ) 

XC  =  DIMAG(XSLOW( J. I  )  ) 

XRS  =  SNGLtXR) 

XCS  =  SNGL(XC) 

XSLING(J.I)  =  CMPLX(XRS.XCS) 

196  TSLING(J.I)  =  CMPLX(TRS.TCS) 

DO  1<>7  I  =  1.IUB1 

DO  197  J  =  1 -55 

UR  =  DREALCUlTCf I.J) ) 

UC  =  DIMAGtUlTCC I . J) ) 

URS  =  SNGL(UR) 

UCS  =  SNGLCUC) 

197  UIBT(I.J)  =  CMPLX(URS.UCS) 

WRITE(8.2)IR0WS. IUB1 
WRITE(8.4)( I  STATE (I  1.1  =  1,  IROWS) 
WRITE(8.5)tESING(I ). 1  =  1 . I  ROWS) 
WRITE(8.5)((ASING(I .J).J=1 .55). 1=1 .55 ) 
WRITE (8 .5 )( (TSLING( I . J ) . J=l . IROWS) . 1=1 .55 ) 
WRITE (8. 5 )( (XSLING1 I . J ) . J=l . IROWS) . 1=1 .55 ) 
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-IRITEC8.5H  CCTSINGCI  .  J  5  .  J  =  1 .  18  ) .  I  =  1  .  55  ) 

WRITEC3.5)(EING(I) . 1=1.55) 

WRITE(8.S ) C IXS1NG( I.J >,J= I. 55 1.1=1.55) 

wRITE(8.S)((U13TU  .J).J=1  .551.1  =  1  .  IUB1) 

a        stop 

EMD 

C  SUBROUTINE  C-ATMU  (COMPLEX  MATRIX  MULTIPLICATION) 

C 

C  COMPUTES:  VV  =  AA  -  33 

C  IA  =  a  OF  ROWS  IN  A A 

C  Ll.  =  »  CF  30WS  IN  E3  AND  »  OF  COLUMNS  IN  AA 

C  13  =  *  OF  COLUMNS  IN  3S 

SUBROUTINE  CMATHL(AA.3S. IA.LL. IB.VV) 
COMPLEX- U    AA(55.55).3B(55.55 1.YYC55.55) 
INTEGER    IA.LL. IB 
DO    10    I-  =    l.IA 

DO   20    J    =    1  .  IS 
vvtl.j)    =    (0.D0.0.D0) 

DO    10    INDEX    =    1 .LL 

VV(I.J)  =  YYCI.J)  •  AA(I, INDEX)  ■  BB(INDEX.J) 
10     CONTINUE 
CO     CONTINUE 

30     CONTINUE 

5£"URN 
END 

C  Jt  M  If  If  II M  If  M  M  M  M II M  M  !f  M  M  If  II  If  II M  1f  II  If  M  II M  M  ff  M  M  Jl  M  If  M II M  It  If  M 1*  ft  M  H  If  If  II II  If  M  If  If  II M  M  If  It  If  It  II  M  If  I 

C  SUBROUTINE   SROOT:    CONVERTS   Z-PLANE   ROOTS   TO 

C  S-PLANE   ROOTS 

c 

C  CDR  V.F.  GAVITO    JULY  i°86 

C 

SUBROUTINE  SRCOTCZ.S.T) 

IMPLICIT  R£AL»8(A-H.P-Z) 

COMPLEX" 16  Z.S 

9S    =    DIMAGtZ) 

RC    =    DREAL(Z) 

3    =    (DATANZ(RS.RC) )/T 

R2    =    CZAES(Z) 

a  =  -dlog:r;  )/t 

S    =    DCMPLXt-A.B! 

RETURN 

END 
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APPENDIX  F 
ELSPACE 


c 

C       ELSPACE:  TESTS  IF  RT/LT  SLOW  LEFT  EIGENVECTORS 

C  RESULTING  FROM  ERSPACE  OPTIMIZATION  ARE  MEMBERS  OF  THE 

C  DAMAGED  NULL  SPACES. 

C 

C         NOTE:  COMPUTATIONS  ARE  IN  SINGLE  PRECISION 

C 

C  CDR  V.F.  GAVITO 

C  NOVEMBER  1586 

C 

C  FILE  01  =  ELSPACE  DATA 

C  (READ) 

C  FILE  IPAS3  =  A03DAT  DATA    OR    XSLOW  DATA 

C  (WRITE  OR  READXWRITE) 

C  FILE  04  '    LRES  DATA 

C  (WRITE  UNDAMAGED)  (REAL  DAMAGED) 

C  FILE  0  7  =  NULL  DATA 

C  (READ) 

C  FILE  08  >  OPTEIG  DATA 

C  (WRITE) 

C  FILE  09  =  3EGEIG1  DATA  (SEGMENT  1  DESIGN  DATA) 

C  FILE  10  =  3EGEIG2  DATA  (SEGMENT  2  DESIGN  DATA) 

C  FILE  11  =  SEGEIG3  DATA  (SEGMENT  5  DESIGN  DATA) 

C  (WRITE) 

C  NORMS 

C  RESRSI )/RESL3( )  =  SUM  OF  VECTOR  COMPONENTS  (COMPLEX) 

C  RESR2C )/RE3L2( )  =  2-NCPMS  (REAL) 

C  RE3RK  1/RESLK  )  =  1-NORMS  (REAL) 

C  REINFRt )/REINFL( )  =  INFINITY  NORM  (REAL) 

C  INFNRRt  )/INFNRL( )  =  ROW  NUMBER  OF  INFINITY  NORM 

C  ELUNDt )/ELDAM( )  =  LEFT  NULL  RESIDUAL  VECTORS 

C  DTNORMO  =  2-NCRM  OF  DIFFERENCE  BETWEEN  LEFT  EVECTORS 

C 

IMPLICIT  REAL»4(A-H.0-I) 

REAL-4  LTE3T 

DIMENSION  A(S5.55).CT(5S.55).WA(55).UNITY(55.5S).nTNORM(24) 

DIMENSION  3CT(55) -WKCT(llO) . UCTT (55 ■ 55 ) . RE3R2 ( 24 ) . RE3L2 ( 24 ) 

DIMENSION  G(l  l.DFdll  )  .RA(lll,222).Wi<(10000),XX(lll  ).VUB(  HI  ) 

DIMENSION  VLBCIll  ).RESR1(24),REGL1(24),REINFR(24).REINFL<24) 

COMPLEX'S  TSLOW(55.24)-AML(55-55)-UNITYC(55-55).UCTlTC(55-55) 

COMPLEX *8  XSLOW 1 55 • 24 ) . UB 1 TC ( 55 ■ 55 ) ■ RE3fc  <  24 ) . RE3L ( 24 ) 

COMPLEX»8  UCA(55.SS).LNULL(24.3  7.55)  -LOB  J  (55  )  -E3LOW<24 ) 

COMPLEX "8  UBA(S5.55)-RNULL(24.45-55) -ROB J (55 ) -E(55 ) .X(55 .55 ) 

C0MPLEX»8  ATML(55.55)  -WVH55  )  -NML(55  -55  )  .  T(55  .55  )  -XS(55.55) 

CCMPLEX»8  WVR(55) .NMRC5S.5S) .RR.RL-Z1 .22 -ZZ -Z4 . 25 .ROT .3CHG 

COMPLEXES  RUNULLd  .  45  ■  55  )  ■  LUNULL  ( 1  •  3  7  .  55  )  .  XT  (  55  .  55  )  •  X3AVE  (  55  .  55  ) 

C0MPLEX»8  RESRR(24).RE0LL(24) .OBJC . Z5A .RE3R3(24 ) .RESL3<24 ) 

CCMPLEX-8  ELUNDt 3  7. 24) ,ELDAM( 2  7 -24 ) .D IFF (24 ) 

C0MPLEX»8  TDE3(55.24),DT(55) 

COMPLEX" 16  ED(55).XD(55-55).EDR(55) .XDR(55.55) 

REAL»8  DR- DC 

INTEGER  IR0W3.IRANCT.IUB1.IDG(1).IC(1)-IWK( 1200)- 10(8) • I  STATE (55) 

INTEGER  I  NULL- IARB(55 ) . ICHG ■ INP . I  ADS . I3EG . IEEN. IIMAG.IRECHK 

INTEGER  I NFNRR ( 24 ) . I FFNRL ( 24 ) . I UND 

C INI  T  COMPLEX  MATRICES 

DO  600  I  =  1 .55 

DO  600  J  =  1 .55 

UCTlTCd  .J)  =  CMPLXIO.  .  0.  ) 

UB1TC( I-J)  =  CMPLXtO. .0. ) 
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USA (I. J)  =  CMPLXCO. .0. ) 
UCACI.J)  =  CMPLXCO. .0.  ) 
bOO    CONTINUE 

c 

C read   PILE   01    CELSPACE   DATA)- 


REAOCl.ZlIROWS.IUBl 
READU.«HISTATECI  !•  I  =  1.1  SOWS) 
READC1.31CESLCWC I ). 1=1 . IROWS) 
READ  ( 1.  3  H(A(  I.  J).  J  =  1.55).  1  =  1.55) 
READ ( 1 . 1 ) ( ( TSLOw 1 1 . J : . J  =  1 . I  ROWS ) . I  =  1 . 55  ) 
READC1.3KCXSLCWCI  .J).J=l.  IRCWS).  1  =  1  .55  ) 
Rc-3;1.3)((CT;I.J).J=1.1S).I=1.55) 
READU.3)(ECt).I  =  l.SS) 

read  u.i)  [cx  ci .j).j=1.55).i=1.55) 
read(1.3)(cusitc;i.j).j=i.55).;=i.iusi) 
c    formats  ::; 

3  FORMAT (6E12. 5] 

4  FORMAT (40 1 3 ) 
8     FORMAT(H) 


c :  s :  -  constants 

c 

Nl  =  55 

TSTEP  =  0.0125 
INFO  =  0 
ITER  =  0 
IADS  =  0 
IDGC1 )  =  0 

g;i )  =  o. 

[CCU  =  0 

I NULL  =  0 
1CHG  =  0 
IIHAG  =  0 

INULLC  =  0 
INP  =  0 
IRECHK  =  0 
I  UNO  =  0 
WEIGHT  =  0.01 
SLU  =  0. 
RLD  =  0. 
RLREAL  =  0. 
IRANCT  =  13 
DO  5  I  =  1.55 

:ars(I)  =  o 

ROSJCI  )  =  CMPLXCO.  .0.  ) 

LOSJCI )  =  CMPLXCO. -0. ) 

30  5  J  =  1  .55 

XSAVECI .J)  =  X( I .J) 

XSCI .J)  =  X(I. J) 

UN  I  TV ( I . J )  =  0 . 

UCTT(I.J)  =  0. 

UNITVCCI.J!  =  CMPLXCO. 0. 0. 0 ) 

5  CONTINUE 

CO  6  I  =  1.55 

EO(I)  =  EC  I ) 

UN  I  TV  (I  .  i  1  =  1.0 

UNITVCCI.I)  =  CMPLXC 1 .0.0.0 ) 

6  CONTINUE 

DO  7  I  =  1 .34 

pesrsc i )  =  cmplxco. .0. ) 

resl3c i )  =  cmplxco. . 0. ) 

resrrc i )  =  cmplxco. . 0. ) 

resllci )  =  cmplxco. .0. ) 

resr:ci  i  =  o. 

RE3L3CI )  =  0. 
RE3PK  I  )  =  0. 
RESLKI  )  =  0. 
REINFSCI )  =  0. 
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REINFLCI)  -    0. 

RESR( I )  »  CMPLXtO. .0.  ) 

RESLCI  )  =  CMPLXtO. .0. ) 

00  7  J  a  1.37 

ELUNDU. I  )  =  CMPLXtO.  .0.  ) 

SLDAMU.I)  =  CMPLXtO.  .0.) 
7      CONTINUE 
C 

C SAVE  DESIRED  SLOW  LEFT  EIGENVECTORS  FOR  OPTIMIZATION— 

C 

DO  660  I  =  I  .55 

DO  660  J  =  1 . I  ROWS 
660    TCES!I  .J)  =  TSLOWtl  .J) 
C 

c FIND  DESIRED  LEFT  EIGENVECTOR  MATRIX  T 

C 

6C0    CALL  LEQT1C(XS.55.S5.UNITYC.S5.55.0.WA.  IER) 

DO  9  I  =  1.55 

00  9  J  =  1.55 

9  TCJ.I J  a  UNITVCtI .J) 

C REINIT  COMPLEX  IDENTITV  g  XS 

DO  11  I  =  1-55 

DO  11  J  =  1  .55 

XSC1.JJ  =  CMPLXtO. .0.  ) 

U  =  UN  I  TV ( I , J  ) 
11      UNITVC(I.J)  =    CMPLX(U.O.O) 

IF!IRECHK.EQ.0)GOTO  17 

DO  6<S0  I  =  1.55 

DO  6<S0  J  =  1 .  IROWS 

KK  =  ISTATE(J) 
640    TSLOWt I .J)=T(I.KK) 

GOTO  2  08 
C 

C FIND  SVD  OF  C»«T  (DAMAGED) 

C 

17  DO  10  I  =  1.55 

10  UCTTCI  .  I  )  =  1.0 

CALL  L3VDFCCT.55.55. 18 . UCTT . 55 . 55 . SCT . WKCT . IER) 

DO  15  I  =  1.18 

IFCSCTCI J.GT.0.0JGOTO  15 

IRANCT  =  1-1 

GOTO  :o 

15  CONTINUE 

CO     CALL  FRTCMSt •CLRSCRN  '] 
WRITEtS . 16 ) ISANCT 

16  FORMATt/SX,  '  »«»«  RANK(C"»T)  =  '.IC.'  ««<•.',/) 

DO  25  I  =  1-55 

DO  :5  J  =  IRANCT  «  1.55 

ucx  =  ucttcj. ; ) 

25     UCTlTCtJ-IRANCT.I )  =  CMPLX ( UCX . 0 . 0 ) 

C ANALYSIS  INFO 

WRITEI6.18) 

18  FORMATI/5X.  •  «>m«  ENTER  "1"  IF  PASS  IS  FOR  UNDAM  ANALVSI3  Kale*' 

»        /SX.'xxaa  ENTER  "0"  ELSE. 

READ  t  ••.8)  I  UNO 

IFCIUNO.EQ.l 1GOTO  19 

READ(4.J)C(ELUND(I.J).J=1.3  7).I=1 . IROWS) 
C 

c pass  QUE 

C 

19  WRITE  to. 4  1) 

41     FORMAT(/5X. ' <»«»  ENTER  "1"  IF  FIRST  PASS  THRU  ELSPACE  »«»»■./! 
1  '«!..»  ENTER  PASS  NUMEER  OTHERWISE.  »«■ 

REA0C.8  1IPASS 
IF(  IPASS.EQ.  1  )GOTO  4C 
READt IPASS.C  JIROWS. IPASSA 
READ  (IP  ASS.  4  )f ISTATEtl  )  .  1  =  1  .  IRCW3) 
PEADUPASS.3H  (X(I .J).J=1.5S),I=1.S5) 
READ (IPASS.3)((T( I.J). J=l .55). 1=1.55) 
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READCIPASS.3)((XSL0WCI.J).J=I.  IROWS). 1=1  .55) 
READdPASS. 3)( (TSLOWCI .J) .J=l .IRONS) .1=1.555 
READ!  I  PASS.  3  )  (ESLOW  I ) . 1  =  1 .  IROWS) 

C 

REINIT  E  AF'ER  ELSPACE  EXECUTION 


42     DO  27  I    a  1. IROWS 

II  =  tSTATEUl 

eotii)  =  eslowcii 

2  7     EtIIJ  =  ESLOW (I ) 

c 

5 5EINIT  XD  AFTER  ELSPACE  EXECUTION 

C 

DO  28  I  «  '..55 

20  23    J  =  '..55 

:s    xdci.j)  =  xd.j) 

c 

c FIND  NULL  space  operators 

c 

26  DO   13      1=1 .IROWS 

Zl    =    ESLOW(I) 
IFdCHG.EQ.OGOTO   34      ■ 

21  =    E(ICHG) 

34  DO   35    J    =    1.55 

DO    35    K    =    1.55 

iR    =   a:j.<) 

ATR    =   a;k.j) 

A*L(J.K)     =    CMPLXCAR.0.0  )    -    21  »UNITVC  (  J  ,K  ) 

35  A-"i__.<;    =    CMPLXCATR.O.Q)    -    21«UNITVCCJ.<) 

CALL  CMATMLCUE1TC.AML. I US1 . 55 . 55 . U3A ) 

CALL  CMATML  C  UCT1 TC . ATML . 55- IRANCT .55.55. UCA ) 

DO  36  JJ  =  1-IUB1 

DO  3b  <K  =1.55 

IFdCHG.EQ.OJGOTO  37 

RNULLdNULLC. JJ.KK)  =  UBA(JJ.KK) 

GOTO  36 

3  7     RNULLd  .  JJ.KK)  =  U3A( JJ.KK) 

36  CONTINUE 

DO  40  JJ  =  1.55- IRANCT 

DO  4  0  <K  =  1.55 

I=(ICHG.EO.0)GOTO  39 

LNULLI INULLC. JJ.KK)  =  UCA(JJ.KK) 

GOTO    40 
3°  LNULLd  .JJ.KK)    =    UCA(JJ.KK) 

40  CONTINUE 

IF( ICHG.EQ.OIGCTO   30 

Z1C  =  AIMAG(Zl) 

CZOHK  =  AB3C21C) 

IFCC2CHK.EQ.0. 1GOTO  208 

IFdNP.EQ.llGOTO   208 

21    =   CONJG(Zl) 

INP    =    1 

INULLC  =  INULLC  ♦  1 

ICHG  =  ICHG  *  1 

ESLQMC  INULLC)    =    21 

E ( I CWG )    =    2 1 

EDdCHG)    =    21 

GOTO  34 
30     CONTINUE 
C 

C =!ND  LEFT/RIGHT  RESIDUALS 


208    COBJR  =0.0 

COBJL  =0.0 
DO  50  J  =  1 .IROWS 
DO  55  I  =  1  .55 
WVRd)  =  XSLCWd.J) 
55     wVLd )  =  'SLOW (I .J) 
C      IFCITER.NE.0JGOTO  46 
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C3     IFCJ.LE.4  1G0T0  45 
C      IFtJ.EQ. 101GOTO  45 

c    ifcj.eq.h  ;soto  45 

C     IFCJ.EQ.U  IGOTO  45 

C      IFCJ.EQ.Cl IGOTO  45 

C      GOTO  4b 

C45  CAi_L    SROOTIESLOWC  J  )  .SOT.  .01C5  ) 

C  WRIT£C6.58)J.ROT 

C58  FORMAT C IX. 'SLOW   LEFT   EIGENVECTOR    NO. ' . I2./5X. 

C  «    'EIGENVALUE    =    ' .E12.5.1X.E12.5."    J'./5X. 

C  ■''DESIRED   VECTOR  DESIGN   VECTOR'./) 

C  WRITE  (6.  56  iCTDESd.Jl.TSLOWd.J  )  .  1  =  1  .8) 

C  WRITSt6.«7) 

C47  =ORMATC'« m.«««»»«»»«»i4» ■■mum ■■ 

C  WRITE! 6 .56 MTDE3( I.J) . T3L0WI I. J). 1=9. 16) 

C  WRITE (6. 47) 

C  WRITE(6.56UT0ESU.J).TSLOW(  I.J).  1  =  17.55) 

C5  6    FORMAT  dX.  El  2.  5.  IX.  El  2.5.  "J1  .5X.E12.5.  IX  ,612. 5. '  J"  1 

46     DO  57  JJ  =  1 . IUB1 

DO  57  «    =  1 .55 
57     NMRCJJ.KK)  =•  RNULLCJ.  JJ.KK) 

DO  60  JJ  =  1 .Nl-IRANCT 

00  60  KK  .  1  ..Ml 
6  0     NMLC  JJ.KK)  =  LNULU  J.  JJ.KK) 

CALL  CMATMLtNMR.WVR. IUB1 .55. 1 -ROB J ) 

CALL  CMATMLCNML.WVL. Nl-IRANCT. Nl . 1 .LOBJ ) 

RTEST  =  0. 

DO  61  J J  =  l.IUBl 

PESR2CJ)  =  RE3R2CJ)  ♦  R0BJ(JJ)»CONJG(ROBJ(JJ ) ) 

RESRKJ)  =  RESR1CJ)  *  CABSCROBJCJJ) ) 

RESR(J)  '    RE3R(J)  •  ROBJlJJ)»«; 

RINFR  =  CABSCROBJCJJ) ) 

IF(RTEST.GT.RINFR)GOTO  61 

REINFRCJ)  =  RINFR 

RTEST  =  RINFR 
61     CONTINUE 

RESR2U-1  =  SQRTCRESR2CJ)  ) 

RR  =  RESRCJ) 

RS3RRCJ)  =  C3QRT(RR) 
C      COBJR  =  COBJR  ♦  CABStRR) 
C     CCSJR  =  COBJR  •  CAB3(RE3RR(J) ) 

COBJR  =  COBJR  *  RE3R2CJ) 

LTE3T  =  0. 

DO  65  JJ  =  1 .Nl-IRANCT 

RESLS(J)  =  RE3LS;j)  *  LOBJ(JJ) 

RE3L2CJ)  =  RESL2CJ)  ♦  L03J ( J J ) "CONJGCLOBJ C JJ ) ) 

RESL1CJ)  =  RESL1CJ)  ♦  CABSCLOSJCJJ) ) 

RE3LCJ)  =  RESLCJ)  *  LOBJ  ( JJ  )  -'2 

ELDAM(JJ.J)  =  LOBJ(JJ) 
C SAVE  UNDAMAGED  LFT  RESIDUAL  VECTORS 

IFdUND.EQ.OlGOTO  63 

ELUND(JJ.J)  =  LOBJ(JJ) 
6J     RINFL  =  CABSCLOBJUJ)  ) 

IF(LTE3T.GT.RINFL)G0T0  65 

REINFL(J)  =  RINFL 

LTEST  =  RINFL 
65     CONTINUE 

RESL2U)  =  SORTCRESL2CJ) ) 

RL  =  RESL(J) 

RESLL(J)  =  CSORT(RL) 
C      COBJL  =  C03JL  •  CABS(RL) 
C      C03JL  =  COBJL  ♦  CABS(RE3LL(J ) ) 

COBJL  =  COBJL  ♦  RESL2CJ) 
50    CONTINUE 
C WRITE  UNDAMAGED  LEFT  RESIDUAL  VECTOR 

IFdUND.EQ.OlGOTO  68 

WRITE (4. J )(  (ELUNDC I.J).J=1.37).I  =  1. I  ROWS) 
68     IFtIADS.EQ.5)GOTO  91 
67     IFdTER.GT.  1  IGOTO  400 
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DISPLAY  SIGHT  AND  LEFT  RESIDUALS • 

WR I T£ ( 6 . 70  1COBJR . COB JL 

FCRMATC/SX. ' ««««  DAM-RT  SLOW  SUBSPACE  RESIDUAL  =  '.El:. 5.'  »«»«' 

1  /SX.       'miKH  OAM-LT  SLOW  SUSSPACE  RESIDUAL  =  '.E12.5.' 

2  ) 


DISPLAY  INDIVIDUAL  RESIDUALS 

MRITEC6.80] 

F~RMAT(/1X. 'UND  EVECT   SLOW  STATE    RGT-OAM  RESIDUALS  LFT 

1-DAM  RESIDUALS' ./ ) 

WRITE  Co. 8! ) ( ISTaTE( I ) , I .RE3R2( I ) .REINFRC I ) .RESL2C I ) .REINFLCI ). 

»I  =  1  . I  ROWS) 
FGRMAT(4X. I2.iCX.12.6X.E12.5.1X.E12.S.2X.EI2.5.1X.E12.5) 


set  up  arsitsary  elements  for  ads  similar  to  erspace 

for  re;r:s  oo  not  let  rt  stab  or  lt  stas  be  arbitrary 

III  =  1 

DO    71    I    =    ?.43 
IFU.LE.31G0T0    71 

IARBUX1 )    =    I 
III    =    III    ♦    1 

CONTINUE 

COMMENTED  OUT  FOR  RECR25 
DO  72  I  =  2°.  34 

:ar3(  hi  )  =  i  *  3 
in  '   m  ♦  i 

CONTINUE 

=nR  RECR25  CASE  THERE  APE10  LESS  aRS  ELEMENTS  THAN  FOR 

SYMMETRIC  CASES.  COMMENT  THE  FOLLOWING  TWO  OUT  FOR  SYMM. 

CASES . 

!ARB(27)  =  45 
IAR3C8)  =  47 

USE  THE  FOLLOWING  TWO  FOR  SYMMETRIC  CASES 
IAR3C36)  =  45 
IAR3(37!  =  47 


.EFT  NULL  SPACE  OPTIMIZATION  QUE- 


ENTER  "1* 


»«<  ENTER  "2" 

»»««  ENTER  "3' 

„,.„  ENTER  "4" 

»»«"  ENTER 

HMNM 

»n*»  ENTER    "6 

Kami  ENTER    "7 

MMim  ENTER 


WRITEC6.8 
FCRMAT(/5X. ' »«« 

»' ./5X. 

-' ./SX. 

»■ ./5X. 

«' ,/5x. 

«' ./5X. 

»• ./5X. 

«' ./5X. 

«' ./5X. 

»' ./5X. 

«•  ./) 

READ(».8)IADS 
IF(IADS.EQ.7)GCTO  9000 
IF!IADS.EQ.6)GCTO  530 
IF(IADS.EQ.4)G0T0  424 
IFCIADS.EQ.l  1GOTO  83 
IF(IADS.EQ.5)GOTO  83 
IF( IADS.EQ.2JGOTO  84 
IFCIAOS.EQ.01GO-O  521 
CALL  FRTCMSC 'CL'SCRN 

REINIT  RESIDUALS 

DO  87  II  =  1. IROWS 
REINFRtll)  =  0. 
REINFLCII)  =  0. 
RESRHII)  =  0. 
RE3L1UI)  =  0. 
RESR2UI)  =  0. 
RESL2I II )  =  0. 
RESLSt I  I  )  =  CMPLXtO . .0. ) 


FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY  **** 
USING  APB  VECTOR  ELEMENTS  AS  VARIABLES" 


CR  LFT  NULL  SPACE  INTRSEC.  ANALY . 
0  SHIFT  A  DESIRED  SLOW  EIGENVALUE 
0  EXIT  ELSPACE  AND  WRITE  OPTEIG 
5"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY 
USING  EIGENVALUE  AS  VARIABLE. 
TO  WRITE  3EGEIS. 
7"  TO  EXIT  ELSPACE. 
0"  TO  EXIT  ELSPACE  AND  WRITE  X3L0W. 


) 
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RESRSC 1 1  )  =  CMPLX(0. ,0. ) 

RESR(II)  =    CMPLX(0. .0. ) 
87     RESLCI  )  =  CMPLX(0.  .0.  ! 

C QUERY  USER  FOR  EIGENVALUE  SHIFT  INFO 

7  7     WRITE (6. 71) 

73  FORMAT(/5X. ' »«««  ENTER  UNO  VECTOR  NO.  VOU  DESIRE  TO  SHIFT 

IX  ,'*»»*    ENTER  "0"  TO  OUIT. 

READ(».2)ICHG 
CALL  SROOT(E(ICHG).SCHG. .0125) 

78  WRITEtb .74 ) ICHG.SCHG 

74  FCRMAT(/5X. ENTER  NEW  S-PLANE  VALUE  OF  VECTOR  '.I2.' 

a         Sx-'      CURRENT  VALUE  =  • .£12. S. 1X.E12.5. /. 
«         5X. '  REAL  °ART  ?• ,/) 

R£AD(«,75)RZ 

WRITEtb. 79) 

79  FORMAT(/5X.'  IMAG  PART  ?•./) 

75  FORMAT(F12.5 ) 

R£AD(*.75)CZ 

CALL  FRTCMSCCLRSCRN  ') 

24  =  CKPLX(R2.CZ) 

EtICHG)  5  CEXP(Z4>i  .0125  ) 

EO(ICHG)  =  ECICHG) 

INP  =  0 

DO  7b  II  =  l.IROWS 

ifcistate;ii).n£.ichg;goto  76 
eslcw(ii)  =  ecichg] 

inullc  *  ii 

GOTO  2b 
7b     CONTINUE 

INULLC  =  II 

GOTO  26 
C 

C~ OPTIMIZATION 

C 

83     WRITEC6.105) 

105    FORMAT(/SX. ' ««»«  ENTER  SLOW  INDEX  OF  THE  RESIDUAL  FOR  ADS 

REAOC. 85)10(1 ) 

85  F0RMATC12) 

CALL  FRTCMSCCLRSCRN  ') 
GOTO  24  1 

86  CALL    FRTCMSCCLRSCRN    ') 

IFdNULL.NE.OlGOTO    86 

READ(7.2)INULL 

READ (7. 3 )( CRUNULLC 1 . JJ.KK) .KK=l .55 ) . JJ=1 ,Vi  i 

REAOC7. 3 ) ( (LUNULLt 1 . J J . KK) . KK= 1 . 55 ) . JJ = 1 . 37 ) 
86     10(1)  =  INULL 
C 

c in  IT  FOR  ADS 

241    IR  =  10(1 ) 

RL  =  RESL(IR) 

RR  =  RESR(IR) 

A8R  =  CABS(RR) 

ABL  =  CABS(RL) 
C      IF(A8R.GT.ABL)G0T0  111 
C      08J  =  ABL 
C      GOTO  112 

111  OBJ    =    ABL 

112  IFdNFO.EQ.DGOTO    121 

113  IN    =    1 

ISTRAT  =  0 
IOPT  =  3 
IONEO  =  2 

1FUADS.EQ.1  1GOTO    90 
NDV    =    2 
GOTO    91 

90  NDV    =    IN-2»55 

91  NCON    =    0 

NGT    =    0 
IGRAD    -    0 
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NRA    =     111 

nccla  =  222 
iprint  =  o 
c 

p SET  SOUNDS 

c 

Z3  =  ESUJWdRl 

IF(IA0S.EQ.l)GOT0  lis 

CALL  SROCTCZ3.Z2-TSTEP) 

XX(1)  =  REALCZ3) 

XX(2)  =  AIMAG(Z3  ) 

wRITSC6.95)IR.£SLCWC:R).ZZ.  ISTATECIR) 
"5     FORMATC/5X. ■ *»»»    ADS  IS  BEING  ENTERED  FOR"  E3LOW( • . 12 . ' )  »»»«• ./5X. 

1  '»»»«  z  =  ' .S1Z.S. 1X.E12.5. ' J  «««»'. /5X. 

J  •-».-  s  =  ' .E12.S. 1X.E12.5. - J  »»■■• ,/5X. 

J  ■  wkhm  ENTER  Z-PLANE  SOUNDS  FOR  THIS  EIGEN-    itxnK  •  ,/SX. 

4  ■  kmmm  i/ALUE  IN  F20.13  FORMAT.  Mm) ■  ./5X. 

5  UNDAMAGED  EIGENVECTOR  NO.  '.12.       '»»««'./) 

WRITEC6.720) 

720        FORMATC/5X.  •  »*««  ENTER  VALUE  OF  ALPHA  FOR  OBJ  »<•»*■./) 
READC.  117  1ALPHA 
GOTO  92 

114  CALL  SROOT(Z3.ZZ.TSTEP) 

WR ITEC 6.1 10 )IR.E3LCW(IR).ZZ. ISTATECIR) 
110    FORMATC/5X. • »**«  ADS  IS  BEING  ENTERED  FOR  E3L0WC ' . IZ . ' 1  «»«»•. /5X. 

1  ,»»m«  Z  =  '  .E1Z.5-IX.E1Z. 5.  'J  N»m.',/5X. 

2  '*»«><  s  =  '  .£12.5.  1X.E1Z.5.  '  J  ■«***, /5X. 
j            '■»«>■  ENTER  SO'JNDS  ON  THIS  SLOW  LFT  EVECTOR   mm*". /5X. 

4  ■«»».  IKI  F20.13  FORMAT.  **** '   .  /SX. 

5  •*«..*  UNDAMAGED  EIGENVECTOR  NO.  '.12.       •»«*«•,/] 

92  WRITE! 6. 115) 

115  FORMATC/SX. '««««  REAL  TOLERANCE  =   ««»«'./) 

READC". 117JBR 
WRITE (6. 116) 

116  FCRMAT(/SX. IMAG  TOLERANCE  =   «»»«■•/) 

READC". 117)81 

117  FORMAT(F20.13) 
C      WRITEC6.118) 

C18    FORMATC/5X.'»mm  ENTER  WEIGHTING  FaCTOP  »»««'./) 
C      READ(». 117 IWEIGHT 

CALL  FRTCMSC 'CLRSCRN  ') 
C        BUILD  DESIGN  VARIABLE  VECTOR  AND  UPPER/LOWER  BOUND  VECTOR 

IFCIADS.EO.l  1GOTO  23° 

VUBU )  =  XX (1 )  *  SR 

VLBtl )  =  XX ( 1  )  -  ER 

VUBIZ)  =  XX (2)  -  EI 

VL3CZ)  =  XX(2)  -  BI 

IF(XX(2) .NE.O. )GOTO  94 

I IMAG  =  1 
94     DF( 1  )  s  0 . 

DF(2 )  =  0. 

CALL  FRTCMSC 'CLRSCRN  ') 
r 

93  Z5  =  RESL(IR) 

C FRE  24  OCT  CEJ 

C      OBJ  =  CABS(Z5 ) 

C 2<  OCT  NEW  OBJ 

C      Z5A  =  CSCRTCZ5) 
C      OBJ  =  CABSCZ5) 
C      OBJ  =  RESL1CIR) 

OBJ  '    RESL2CIR)  -  ALPHA 
C      OBJ  =  REINFL(IR) 

IPRINT  =  0 

C 2-NORM  OF  LEFT  RESIDUAL  DIFFERENCES 

C       DO  700  II  =  1.37 

C7O0    DIFF(II)  =  ELDAM(II.IR)  -  ELUNDCII.IP) 

2       33J  =  0. 

C       DO  710  II  =  1.37 

C710    OBj  =  C3J  ♦  DIFFl II )»CONJG(DIF=t II  )  ) 
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C      OBJ  =  SORT(OBJ)  -  ALPHA 

C INFINITY  NORM  OF  LEFT  RESIDUAL  DIFFERENCES 

C  OBJ  =  0. 

C  DTEST  =  0. 

C         CO  715  II  =  1.3  7 

C         DINF  =  CABS(DIFF(II ] ) 

C         IF(0TEST.GT.0INr 1GOT0  715 

C        OBJ  =  DINF 

C         DTEST  =  DINF 

C71S       CONTINUE 

CALL  ADS (INFO. ISTRAT. IOPT. IONED.  I  PR  INT,  IGRAD . NOV . NCON . XX . VLB . VU3. 
1  OBJ.G. IDG.NGT. IC.DF.RA.NRA.NCOLA.WK. 1 000 C . I WK . 1200 ) 

IF(  I  IMAG.NE.  1  )GOTO  99 

XXC2)  =  0. 

9°    write(b . 97  ) iter. xx ( 1 ) .xx  1 2 ) .obj 

97    format  1 i x.  '  iter  no.'-ic.'  xxu)  =  '.e1j.6.'  xx(2)  =  '.e13.6 
«  .  ■  cbj  =  •  .e:;.5) 

iter  =  iter  •  1 
ichg  =  istatecir1 

Zi     =  CMPLXtXXtl  ).XX(2) ) 
C      E(ICHG)  =  CEXP(Z«h. 01251 

E(ici-G)  =  r<; 

ESLOW(IR)  =  ECICHG! 

EOCICHG)  =  EC ICHG) 

INULLC  =  IR 

IFCINFO.EQ.01GOTO  a8 

IF(ITER.GT.20)GOTO  98 

IFCOBJ.LT. 1 .E-01 1GOTO  "8 

INP  =  0 

DO  «6  I  =  1 .IROWS 

RESRSd  )  =  CMPLXtO.  .0.  ) 

RESLSd  )  =  CMPLX  (0.  .0.  ) 

RESR1CI  1  »  0. 

RESLK  I  )  =  0. 

RESR2CI  1  =  0. 

RESL2U )  =  0. 

REINFR(I)  =  0. 

REINFLtl 1=0. 

RESRCI )  =  CMPLXtO. -0. 1 
9b     RESLCI )  =  CMPLXtO. .0. 1 

GOTO  Co 
°8     IADS  =    0 

[R  *  0 

ICHG  =  0 

ITER  =  0 

INFO  =  0 

IIMAG  =  0 

INP  r  0 

GOTO  bb 
259    JJ  =  1 

KK  =  10(11 

DO  120  LL  =  1.55 

RX  =  REAL(XSLOWtLL.KK)  1 

CX  =  IMAGtXSLOW(LL.KK) ) 

TR  =  REAL(TSLOWtLL.KK) ) 

TC  =  IMAG(TSLOU(LL.KK) ) 
125    XX(JJ)  =  TR 

XXtJJ'l  1  =  TC 

C CURRENTLY   IMAG  PART  OF  THE  VECTOR  ARE  NOT  ARB  FOR 

C  RECR25  CASE    25';  ASYMMETRIC  DAMAGE  CASEtNOT  FOR  SYMM 1 

C   27  AR3ITRARY  ELEMENTS  FOR  RECR25  USE  MM  =  1.36  FOR  SYMMETRIC  CASE 
C !!!!!!!!!!!!!!!!!!!!!! NOTE ! !  ! • 1 ! ! ! ! ! ! ••!••••■■••!!:!!•••■!!:<!■•!!!■!  !  • 

DO  12b  MM  =  1.37 
12b    IF(IAR3(MM) .EQ.LL1GOTO  127 

VUS(JJ1  =   XX(JJ)  ♦  ER 

VLB(JJ)  =   XX(JJ)  -  BR 

GOTO  128 
127    VUS(JJ)  =  XX(JJ)  ♦  3R 

VLB(JJ)  =  XX(JJ)  -  BR 
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128         IFtTC.NE.O.OlGOTO   286 

VU8(JJ->1)    =    0.0 

VLB(JJ*1)    =    0.0 

GOTO   285 
28  6         DO    :87    mm    =    1  .37 
287  IF(  lARSIMM)  .EQ.LDGOTO    288 

VUS( JJ'l )    =    XX(JJ*1 )    •    BI 

VL3CJJ*1 )  =  XXCJJ'l )  -  SI 

GGTO  285 

:88      vubcjj-ii  =  xxcjjm)  »  s: 

VL3CJJ-1 )     =    XX( JJ»1 )    -    31 
2SS         DFUJI     =    0. 

DFCJJ*] )    a    O. 

c 

C ZEROIZE  OUT  ELEMENTS  WHICH  ARE  <  ♦/-  l.D-08 

Z  AM  NOT  ZEROIZING  OUT  FOR  RECR25  CAGE 

C      RTEST  »  A3SCXXCJJ  )  ) 
C      CTEST  =  ASSCXX(JJ-1 )  ) 

c    if:rtest.eq.o.  igoto  130 

C  IF(RTEST.GT.1.E-08)GOTO  130 

C  XX(JJ)  ■  l.E-16 

C  VUBCJJ)  =  l.E-16 

C  VL3(JJ)  =  -1 .0E-16 

C130    IrfCTEST.EQ.O. 1GOTO  265 

C       IFCCTEST.GT.l .E-C8JGCT0  265 

c    xxcjj*i)  =  i.e-16 

C     VU8UJM)  =  1.0E-16 
C     VLBCJJM)  =  -1.0E-16 
265    JJ  =  JJ  ♦  : 
1Z0    CONTINUE 

121    CALL  ADS ( INFO. ISTRAT.ICPT. IONED . IPR INT . IGRAD . NOV . NCON . XX . VLB . VU8 . 
1  OSJ.G- IDG.NGT, IC . CF . RA. NRA. NCOLA. UK . 10000. I WK. 1200) 

ITER  =  ITER  '    1 
C        EVALUATE  OBJECTIVE  FUNCTION 

JJ  =  1 

ICONJG  =  0 

<K  =  10(1) 

00  2'5  LL  =  1  .55 

IF(IMAG(ESLOW(KK)) .E0.0.0  1GOTO  246 
271    ICONJG  =  1 

246   tslowtll.kk)  =  cmplx(xx(jj ) .xxcjj-1 ) ) 
2«8   jj  =  jj  ♦  2 
245   continue 

osj  -   o. 

RLREAL  =  0. 
RL  =  CMPl_X(0. .0. ) 
RESLKIRJ  =  0.0 
RESL2URJ  i  0.0 
DO  290  II  =  1.55 

290  WVL(II)  =  TSLOHCII.IR) 

DO   291    JJ    =    1 .Nl-IRANCT 
DO   291    KK    =    UNI 

291  NML(JJ.KK)  »  LNULLCIR.JJ.KK) 

CALL  CMATMl_(NML.*IVL. Nl-IRANCT, Nl . 1 .LOBJ ) 

LTEST  =  0. 

DO  292  JJ  =  1. Nl-IRANCT 
C292    RLREAL  =  RLREAL  •  CAE3(L03J ( JJ ) ) 
C =LAN  »  qoj=  SUM  0F  9|_'S 

RL  =  RL  *  LOBJ(JJ) 
C ASYMM  TEST  OBJ  =  1  NORM 

RESL1CIR)  =  RESL1UR)  ♦  CA3SCL0BJ C JJ ) ) 

RES^2(IR)  =  RESL2IIR)  ♦  LOBJ  ( JJ  )  "CONJGCLOBJ  ( JJ  )  ) 
C AS/MM  CASE  TEST, 03J  =  INFINITY  NORM 

RINFL  =  CAESILOBJUJ  )  ) 

IF(LTEST.GT.RINFL)GOTO  292 

REINFL(IR)  =  RINFL 

L'EST  =  RINFL 

292  CONTINUE 

RE3L2(IR)  =  SaRTtRE3L2(IR ) ) 
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C~, PLAN  1  OBJ 

C292    RL  =  RL  ♦  LOBJ(JJ)"»2 

[FCIAOS.NE.2 1GCTO  294 

RLD  =  CA8S(RL) 
RL  =  CMPLXtO . .0. ) 
DO  293  JJ  =  1.37 
DO  293  KK  =  l.Nl 
2°5    NML(JJ.KK)  =  LUNULLt 1 . JJ.KK) 

CALL  CMATMLCNML.WVLi  37. Nl  .  1  .LOBJ  ) 
DO  295  JJ  =  1.37 

295  RL  =  RL  *  LOBJ(JJ) 

RLU  =  CABS(RL) 

IF(RLU.QT.RLOJGOTO  2°8 

OBJ  =  RLD  ♦  «EIGHT»RLU 

GOTO  296 
2<>8    OBJ  =  RLU  •  uiEIGHTxRLD 

GOTO  2°5 
C294    OBJ  »  RLREAL 

C PLAN  3  OBJ 

C294    OBJ  =  CABS(RL) 

C =  LAN  1  OBJ 

C:«4    OBJC  =  CSCRTCRL) 
0      OBJ  =  CABSCOBJC1 

C INF-NORM  OBJECTIVE  FOR  ASYMMETRIC  CASE  11/3/86— 

C      OBJ  =  REINFLUR) 

C 2-NCRM  OBJECTIVE  FUNCTION  ll/3/8o 

2°4    OBJ  =  RESL2CIR) 

C 2-NORM  f  ORIENTATION  OBJECTIVE  FUNCTION  11/6/86- 

DO  800  JJ  =  1.55 
800       DT(JJ)  =  TDES(JJ.IR)  -  TSLOW(JJ.IR) 
DTNORM(IR)  =  0. 
DO  810  J J  =  1.55 
810      DTNCRM(IR)  =  DTNORM(IR)  •  DT  ( JJ  )  "CONJG ( DT ( J J ) ) 

DTNORM(IR)  =  SORTCDTNORMC IR ) ) 
C       OSJ  =  OTNORM(IR)  •  RE3L2URI 

296  IFCITER.GT.2000)GOTO  257 

IFt INFO.EO.01GCTO  257 
GOTO  121 
257    IF(ICONJG.EO.0)GOTO  249 

kk  =  :ot i ) 

DO    305    LL    =    1  .55 
305         TSLOWILL.KKM ]    =    CONJG ( T3LOW (LL . KK  )  ) 
C 
c REBUILD    X.T.XLOW.TSLOW 

C 

249         DO    300    KK    =    1  .55 

DO    SO:    LL    =    l.IROWS 

IFCISTATECLD.EQ.KKJGOTO    301 

302  CONTINUE 

DO  303  JJ  =  1 .55 
XSCJJ.KK!  =  T(JJ.KK) 

303  XTUJ.KK)  =  XSCJJ.KK) 

GOTO  300 
301    DO  304  JJ  =  1 .55 

XSCJJ.KK)  =  TSLOWCJJ.LL) 

304  XT(JJ.KK)  =  XS(JJ.KK) 
300    CONTINUE 

CALL  LEOT1CCXS.55.55.UNITYC.55.55.0.WA.IER) 

DO  247  KK  =  1 .55 

DO  247  LL  =  1 .55 

TCKK.LL)  =  XT(KK.LL) 

XD(LL.KK)  =  UNITYC(KK.LL) 
247    XCLL.K.K)  =  UNITVC  (KK  .LL  ) 

DO  255  JJ  =  l.IROWS 

DO  255  KK  =  1.55 

LL  =  ISTATE(JJ) 
255    XSLOWCKK.JJ)  =  X(KK.LL) 
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cso 

252 


400 

c 


c 
«1( 


DO  2S0  KK  =  1.55 

CO  2S0  LL  =  1 .55 
UNITYCIKK.LL)  s  CMPLXtO.0.0.0 ) 

CO  252  KK  =  1.55 
UNITYCtKK.KK)  =  CMPLXtl .0.0.0) 

DO  475  1=1. IRGWS 

sssaiti )=o. 

RESLI(I)  =  0. 

RESR2tI)  =  0. 

RESL2U  1  =  0. 

RESRtI !  =  CM=LXt0. .0. ) 
RESLC1 )  =  CMPLXtO. . 0.  ) 

GOTO  2C8 
CALL  FRTCMSfCLRSCRN  ') 

DISPLAY  OBJECTIVE  FUNCTIOM- 


WRITEto.4  10  )0SJ.RESL2(  IR  )  . DTNGRMt  IR)  .  INFO.  ITER  .  RLD  .  RLU .  WEIGHT 


FCRMAT(/5X. 


ADS  COMPLETE 
OBJECTIVE  FUNCTION 
2-NCRM  OF  RESIDUAL 
DT  2-NORM  OF  DIFF 


««'  ./5X. 
.E12.5./5X. 
.E1Z.5./5X. 
.E12.5./5X. 


INFO  =  •  .11.'    ITER  =  • .I4./5X. 
DAM-lT  OBJ  =  ' .E12.5.1X,'  UND-LT  CBJ 
WEIGHT  FACTOR  =  ' .£12.5./) 


-DECI2E  "0  REENTER  ADS.  WRITE  ACSDAT  FCP  ELSPACE  RENTRV  OR- 
WRITE  CP'EIG  FOR  RECONF  RENTRV. 


wRITEt».470 ) 
"ORHATC/5X. '»<"■«  ENTER  "1"  TO  REENTER  ADS    «»»«' 
a  '*»»«  ENTER  "2"  to  WRITE  ADSDATA 

,  •mm*  ENTER 

«  '»»»«  En'ER 

«  ■«««»  ENTER 

REA0C«.8)IEEN 

CALL  FRTCMSt 'CLRSCRN 

IFUEEN.EO.01GOTO  424 

IF(IEEN.EC.2)G0T0  510 

IF( :een.£3.3:goto  521 

IF( :EEN.EQ.4)30T0  530 
DO  500  I  =  1 .24 


"3"  TO  WRITE  XSLOW 
•4"  TO  WRITE  SE3EIG 
"0"  TO  WRITE  OPTEIG 


./5X. 
,/SX. 

./5X. 
./  ) 


) 


RESR1 (I )  =  0. 
RESLKI  )  =  0. 

RESR2CI 1=0. 
RESL2CI  )  ■  0. 
REINFRt I )  =  0. 
REINFLCI)  =  0. 
RESRtI )  =  CMPLXtO. 
RESLd  )  =  CMPLXtO.  .0.  ) 
INFO  =  0 
ITER  =  0 
GOTO  208 


-WRITE  FILE  08  OPTEIG  FOR  USE  BY  RECONF- 


C INSERT   ACT*   SENSOR  UNO  ELEMENTS 

C VALUES  INTO  SLOW  EIGENVECTORS — WEO/LAT  ELE  9- 1 b- 

C424  DO  462  I  '    5.43 

C424  DO  462  I  =  9.43 

C  DO  462  J  =  33.55 

C  IFtJ.NE.41 )GOTO  467 

C  IFtJ.NE.42)G0T0  467 

C  IFtJ.NE.45)GOT0  467 

C  IFtJ.NE.52!GOTO  467 

C  IFtI .NE.?)GOTO  467 

C  I=tI.NE.I0)GOTO  467 

C  IFtI .NE.ll IGOTO  467 

C  IF( I .NE.121GOTO  467 
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C  IFC I .NE.13IG0T0  467 

C  IFCI.NE.  I4JG0T0  467 

C  IFCI.NE. 151GOTO  467 

C  IFCI.NE. 161GOTO  467 

C  GOTO  4,; 

C  XDC I • J)  »  XSAVECI .J ) 

C46C  CONTINUE 

C INSERT  UNO  LAT  ELEMENTS  INTO  SLOW  LONG  EIGENVECTORS 

C  DO  464  1=5.8 

C  XDC I .38 )  =  XSAVEC I .38 ) 

c    xDti.:a)  =  xsavec I.:?) 

C     XDCI.<5J)  »  XSAVEC  I  .43) 
C64    XDCI. 46)  =  XSAVEC I. 46) 

C INSERT  UNO  LON  ELEMENTS  INTO  SLOW  LAT  EIGENVECTORS 

C      00  466  1=1.4 

C      XDC I .41 )  =  XSAVECI .41 ) 

C     XDCI.42)  »  XSAVEC I .4; ) 

C     XDC I .45)  =  XSAVECI .45) 

C66    XDCI. 52)  =  XSAVECI. 52) 

C        -RECONSTRUCT  FAST  EIGENSPACE  FROM  UNDAMAGED  EIGENSPACE-  RECR2S-- 

C        -FOR  RECRC5  7 .8 . I  7 . 18 . : 3 . 24    ARE  ALSO  SLOW  STATES- 

C4I4    DO  463  I  =  «.43 

C      DO  465  J  «  1 .37 

C      IFCJ.E0.71G0T0  463 

C      IFCJ.EQ.3 (GOTO  463 

C      IFCJ.EQ. 171G0T0  463 

C      IFCJ.EQ. 181G0T0  463 

C     IFCJ.EQ. I3IG0T0  463 

C      IFCJ.EQ. 241G0T0  463 

C       XDCI.J!  =  XSAVEC I. J) 

C463    CONTINUE 

C INSERT  FAST  ELEMENTS  OF  CONTROL  LAW  FILTERS 

C  DO  465  J  =  1.37 

C  XDC45.J)  =  XSAVEC45.J) 

C465  XDC47.J)  =  XSAVEC47.J) 

c RESTRUCTURE  X.DELTA  BY  REORDERING  THE  FIRST  18 

C  VECTOR/EIGENVALUE  PAIRS  TO  SE  THE  SLOW  EIGENSPACE 

4C4      DO  900  I  =  1.55 

DO  <>oo  J  =  1.18 
°C0      XORCI . J)  =  XDCI .J-37) 

DO  ?10  I  =  1 .55 

DO  910  J  =  19.55 
'10       XDRCI .J)  =  XDC I.J-18) 

DO  920  I  s  1  .  18 
"■CO      EDRCI  1  =  EDCI  +  S7) 

DO  925  I  =  10.55 
°:5      EDRCI )  =  EDCI-18 ) 

DO  930  I  =  1.55 
930      EDCI )  =  EDRCI) 

DO  935  I  =  I  .55 

DO  935  J  =  1.55 
935      XDCI.J)  =  XDRCI .J) 

C RE  INSET  FAST  EIGENSPACE 

C        DO  936  I  =  9.43 
C        DO  936  J  =  19.55 
C        XDCI .J)  =  XSAVECI .J) 
C936    CONTINUE 

c QUERV  USER  TO  CHECK  RECONSTRUCTED  OPT  SPACE  FOR  RESIDUALS- 

WRITEC6.610) 
610    FORMATC/5X. ' "ENTER  "1"  TO  CALC  RESIDS  FOR  RECONSTRUCTED  SPACE"'. 

»        /5X. • "ELSE  "0".  « 

REA0C«.8 1IRECHK 
IFCIRECHK.EQ.OIGOTO  468 
DO  630  I  =  1.55 
DO  630  J  =  1  .55 
DR  =  DREALCXDCI . J)  ) 
DC  =  D I  MAG (XDC I .J)  ) 
fc  =  SNGLCDR) 
C  =  SNGLCDC) 
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630 

XSCI.J)  =  CMPLXCR.C) 
00  645  I  =  1.55 
DO  645  J  =  1 . IROWS 
<K    =  ISTATEU) 

645 

XSLOW(I.J)  =  XS(I.KK) 
DO  650  I  a  1 .D4 
RESLKI)  =  0. 
RESRltl)  =  0. 
RESL2CI)  =  0. 
RESR:(I )  =  0. 
REINFRCI  )  a  0. 
REINFLCI  )  =  0. 

RESRtI  )  =  CMPLXCO. 

0.  ) 

650 

RESLCI  )  =  CMPLXCO. .0.  ) 
INFO  =  0 
ITER  =  0 
GOTO  6D0 

4  68 

WR:tE(3-460)( CXOCI . J ) . J= 

.55). 1=1 .55) 

WRITE(8.4b0)!ED!I  ) 

1=1-55) 

460 

FORMAT C4D20. 13 ) 
GOTO  9000 

C 

XSLOW  FOR  DE 

C 

521 

IPASS  =  IPASS  •  1 

uritei  : pass. 2  hrcws.  ipass 

write  (ipas3.4h i  state ( i ). 1  =  1 . irows) 

write  c  ipass.3kcxc  i.  j  ).j=1.55).  1=1.55) 

write! ipass.31cct! i. j). j=l. 55 ).!=:. 55) 

write! i =a3s. 3 )( c xslow c i .j) . j=i . irows ) . 1=1 .55) 

-riteci?ass.3:t  ctslcwc i.j).j=1. irows). 1  =  1 .55) 

writecipass.3)(eslowii).i=l. irows) 

GOTO  9000 
C 
C WRITE  FILE  IPASS  ADSDAT  FOR  USE  BY  ELSPACE— 


510    IPASS  =  IPASS  •  1 

WRITEUPA3S.2)IROWS.  IPASS 

WRITECI?ASS.4)IISTATEII ). 1=1 .IROWS) 

WRITE!  IPASS.3HCX!  I.J  ).J  =  1.S5).  1  =  1.55) 

WR:TECIPASS.I)ItTCI.J).J=1.55).I=1.55) 

WRITE!  IPASS.  3  HCXSLOWCI  .  J).  J=l  .  IROWS)  .  1  =  1  .55) 

WRITS! ;PAS5.3)CCTSLOW(I.J).J=l. IRCWS). 1=1 .55) 

WRITECIPASS.3KESLOWCI  ).  1  =  1  .  IROWS) 

GOTO  9000 
C 

c WRITE  FILE  9.10. OR  11  SEGEIG  DATA 

C 

530    CALL  =R"CMS( 'CLRSCRN  •) 

WRITEC6.535 I 
535    F0RMATC/5X. ' x»««  ENTER  DESIGN  SEGMENT  NUMBER  »»«.'./) 

READ(».8)ISEG 

ISEG  =  ISE3  *  8 

WRITE! I3EG.31I (XSLOW! I . J ) . J=l . IROWS) . 1=1 .55) 

WRITE! ISEG. 3 J1ESLOW! I ) . 1=1 . IROWS) 
9000   STOP 

ENO 

C 

C  SUBROUTINE  CMATML  (COMPLEX  MATRIX  MULTIPLICATION) 

C 

C  COMPUTES:  VY  =  AA  •  SB 

C  IA  =  a  OF  ROWS  IN  AA 

C  LL  «  a  CF  ROWS  IN  3B  AND  a  OF  COLUMNS  IN  AA 

C         IB  =  a  OF  COLUMNS  IN  B8 

r.  .....  .  ..  ...  ......  ...... ..»,...»....» 

SUBROUTINE  CMATML (AA. 33. IA.LL. IB.VV ) 
COMPLEX'S  AAC55.55) -3B(55.55) .vv(55.55) 
INTEGER  IA.LL. IB 
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DO  10  I  =  1.  IA 

DO  20  J  =  1.13 

VV( I  ,J)  =  CMPLXtO. .0.  ) 

DO  10  INDEX  =  l.LL 

VY(I.J)  =  VV(I.J)  •  AAU. INDEX)  »  SB(INDEX.J) 
10     CONTINUE 
JO     CONTINUE 
10     CONTINUE 

RETURN 

END 

C 

C  SUBROUTINE  3ROOT:  CONVERTS  Z-PLANE  ROOTS  TO 

C  S-PLANE  ROOTS 

C 

C  CDR  V.F.  GAVITO    JULY  1°86 

C 

SUBROUTINE  SROOTtZ.S.T) 

IMPLICIT  REAL»<iCA-H.P-2) 

CCMPLEX-9  Z.S 

RS  =  IMAGO 

RC  =  REAL12) 

3  =  (ATAN2(RS.RC) )/T 

R2  =  CA8SC2) 

A  s  -LOG(R:)/T 

S  =  CMPLXC-A.8) 

RETURN 

END 
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APPENDIX  G 
SAMPLE  RECONFIGURATION  RUN  FOR  F-18,  CASE  A  DAMAGE 


RECONF 

V3  FORTRAN  COMPILER  ENTERED.   12:59:29 

"•MAIN""  EMC  OF  COMPILATION  1  mm*** 

»»CMATML«>  END  OF  COMPILATION  2  ****** 

»»RANKD»»  END  OF  COMPILATION  3  «<»»»» 

»*WRMATD»»  END  OF  COMPILATION  «  »»»»«» 

•»SRCOT«m  END  OF  COMPILATION  5  »«»«** 
VS  FORTRAN  COMPILER  EXITED.    12:59: Jo 


LOADING  RECONF  AND  0RACL3A 
EXECUTION  BEGINS. . . 

ENTER  "i"  TO  WRITE  UNDAMAGED  EIGEN3TRUCTURE . 3 

SYST.  MATRICES. CREAD  "RECONF"  DATA  Al. 

•,UNDIEG"."UNDA3C"-5  "CLM". 
ENTER  "2"  TO  READ  UNDAMAGED   EIGENSTRUCTURE  AND 

WRITE  SLOW  RT  SUBPACE  DATA  FOR  USE  BY 

"ERSPACE"  (WRITE  "ERSPACE"  DATA  Al ) 
ENTER  "3"  TO  COMPUTE  RECONFIGURED  GAINS. 

(WRITE  "FRECCN"  DATA  Al) 
ENTER  "«"  TO  COMPUTE  RECCNFIG.  EIGENSTRUCTURE 

AND  TIME  RESPONSE  (OPTMATD.OPTPLOT) 
ENTER  "S"  TO  COMPUTE  0  AND  WRITE  FILE  12 

"FXACT"  DATA. 


•  *«  ENTER  "1"  TO  MODIFY  DESIRED  EIGENSTRUCTURE  »««« 
ELSE  ENTER  "0".»»»« 


•»  ENTER  "1"  TO  DISPLAY  DESIRED  EIGENSTRCTURE" 
•«  ENTER  "0"  OTHERWISE.  » 


«»«»  CALLING  LSVDF  FOR  3  «»"« 

...»  LSVDF  OF  "B"  COMPLETE  «*« 
<*«*  RANK(B)  =10  »" 

»»««  CALLING  LSVDF  FOR  C  »■«« 


»-«»  LSVDF  OF  "C"  COMPLETE  ««»« 

'-«>  RANK(C)  =  18  «■«« 

SLOW  STATE  NO.   1  UND  STATE  NO.  33  S  =  -0  .  22  7?<SE»0 1  0.27016E-01J 

SLOW  S'ATE  NO.   2  UND  STATE  NO.  39  3  =  -0 . 22794E-0 1  -0 . 27016E-01 J 

SLOW  STATE  NO.   3  UND  STATE  NO.  40  S  =  -0.38114E-01  0 . OOOOOE-00 J 

SLOW  STATE  NO.   «  UND  STATE  NO.  <S 1  3  =  -O  . '.8  703E»0  1  0 . 26 152E»0 1  J 

SLOW  STATE  NO.   5  UND  STATE  NO.  <J2  S  =  -0.18703E-01  -0.26152E*01J 
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SLOW  STATE  NO.  6  UNO  STATE  NO.  43  S  >  -0.51146E-00  O.OOOOOE-OOJ 

SLOW  STATE  NO.  7  UNO  STATE  NO.  «  S  :  -0.11588E-01  O.OOOOOE-OOJ 

SLOW  STATE  NO.  8  UNO  STATE  NO.  «  3  =  -0.29042E-01  O.OOOOOE-OOJ 

SLOW  STATE  NO.  9  UNO  STATE  NO.  «»  S  =  -0.17330E-01  0 . 00000E-00 J 

SLOW  STATE  NO.  10  UNO  STATE  NO'.  47  S  =  -0.20C36E-01  0 .  00000E-00J 

SLOW  STATE  NO.  11  UNO  STATE  NO.  48  S  =  -0.14434E-01  O.OOOOOE-OOJ 

SLOW  STATE  NO.  12  UNO  STATE  NO.  49  S  *   0.36383E-02  0 . 00000E-00 J 

SLOW  STATE  NO.  13  UND  STATE  NO.  50  S  =  -0.13000E-01  0.0000CE-00J 

SLOW  STATE  NO.  14  UNO  STATE  NO.  513=   0.00000E-00  O.OOOOOE-OOJ 

SLOW  STATE  NO.  15  UND  STATE  NO.  51  S  =   0.2°118E-02  O.OOOOOE-OOJ 

SLOW  STATE  NO.  16  UND  STATE  NO.  53  S  =   O.00O00E-00  O.OOOOOE-OOJ 

SLOW  STATE  NO.  17  UND  STATE  NO.  54  3  =  -0.2C0C1E-01  O.OOOOOE-OOJ 

SLOW  STATE  NO.  18  UNO  STATE  NO.  55  3  =  -0.20001E-01  O.OOOOOE-OOJ. 
R;  :=«. 39/11 .23  13:00:04 
E93PACE 
VS  FORTRAN  COMPILER  ENTERED.   13:02:32 

«»MAIN»»  END  CF  COMPILATION  1  «»•<««» 

««CMATML««  END  OF  COMPILATION  2  *»«*»» 

«»SROOT««  END  OF  COMPILATION  3  ***«»* 
VS  FORTRAN  COMPILER  EXITED.     13:02:35 


LOADING  ERSPACE 
EXECUTION  BEGINS. . . 

mm*  INDICES  OF  SLOW  EIGENVALUES 

38     39  40     41     42 

43     44  45     46     47 

48     49  50     SI     52 

53     54  55 


«»»«  THE  FOLLOWING  VECTOR  DISPLAYS  THE  NEARNESS  OF 
**»»    EACH  SLOW  EIGENVECTOR  TO  THE  ALLOWABLE  RIGHT 
mutH  HAND  SLOW  EIGENSPACE  FOR  THE  DAMAGED  F18  MODEL. 

0.34919«58201780-02 
C.3491"9S620178D-02 
0.2956543499654  0-02 
0.4303230273294D-02 
0. 43032302732940-02 
0.1927162332338D-02 
0.2176630703°60D-02 
O.4O67147444816D-02 
0.2923381215272D-03 
0.70?«6269715670-04 
0.  14°8364394931D-02 
0.7207041731=540-02 
0.28564388988310-11 
0.25507412251550-12 
0.89=028729O080D-05 
0.8»46468211520D-10 
0.490717513437O0-I2 
O.OOOOOOOOOOOOOD-OO 

•«««  ENTER  "1"  IF  RESIDUAL  IS  UNSAT  TO  RENTER  ADS  »* 
»»»«  ELSE  ENTER  "0".  »« 


WRITING  ELSPACE  DATA  FILE  08 
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=:  "=:s. ::/;?. ?:  13:03:Z2 

Z.Z--ZE 

■  '-  =:  =  -=-■-  ::-=:_£=  E--~E=Er.     ::::s::5 


"  '•    z    •  '  ■ 


--:  =  ::"--  end  :=  compilation  :   

:   Fortran  compiler  exited.       :::i:;s 


execution  je::^;. . . 


:_...      :..-        =     -3 


....    £s-r;      ■•■     ;z    PASS     ::    -'--     JMDAM    ANALYSIS     ■••• 
•    ENTER       :      £.3£ . 


enter  =-:-:  *..-•££=   otme 


:_:-   :_;:=-:£  =e:::.- 
:.:-   SU8SPACE  -£:::.- 


: . 12511E-03 


-Dam  residuals 


LFT-OAK    RESIDUALS 


38 
3? 

'a 
«: 

(.2 
ci 
64 

'5 

--- 
-" 
43 
i  = 

5: 

s: 
5: 
5: 

54 

55 


1 

0 

3492CE-02 

: 

II823E-0Z 

: 

3348<E«02 

0 

Z3673E+02 

; 

- 

K926E-02 

: 

::=;:£-:: 

0 

:;-£-£-:: 

0 

::-■:£-:: 

3 

: 

:-;-£-:: 

a 

::=;=£-:: 

0 

:---:£-:; 

3 

26721E*02 

c 

3 

«33«4E-02 

: 

:--  --.  :£-:; 

0 

905Z2E-0Z 

0 

-:--.£-:: 

5 

■ 

S3344E-02 

: 

:-:.£-:: 

: 

::=::e-:: 

: 

t: --  .£-:; 

0 

a 

.=:;-£-:: 

3 

l7S*SE-02 

3 

.  Z-  z  ~=  '  '.2 

a 

7776ZE*01 

7 

: 

::-■£-:: 

: 

:=  ]  -.  r_  -  - 

: 

-:-:=£-:: 

: 

-;-:£•- 

3 

: 

(3476E-02 

0 

:"-"£- :: 

: 

.:-=££-:: 

a 

74161E-01 

a 

0 

:=::=£-:: 

0 

26580E-03 

: 

1 5  05  7  E»0 1 

: 

. :  s : :  £  -  a . 

10 

: 

M7S9E-04 

: 

;;?--£- :- 

: 

::-".£-:. 

: 

.---.-£-:. 

: : 

: 

t«S87E-82 

: 

::==:£-:: 

: 

:.s.t£-: 

: 

=  :i35£-:r 

:: 

: 

'::-:£-:: 

0 

S5518E-02 

0 

-.-::  =  £-:: 

: 

S9»18E-00 

:: 

: 

:=;:£-:. 

0 

20878E-11 

0 

::£-:. 

0 

19316E-01 

.- 

: 

Z5SZ7E-12 

: 

.■---?£-.: 

: 

::.££-: . 

0 

2  3 !:-£-: ] 

:= 

0 

&5755E-03 

; 

■    ■    -l-'.l 

0 

s. ?=  =  £-:. 

: 

36Z94E-01 

.: 

: 

B9445&-1H 

: 

;:::£-: 

: 

:::::£-:: 

: 

:::::£-:: 

17 

: 

49205E-12 

: 

385Z7E-12 

: 

:::::£•:: 

0 

:::::£•:: 

13 

: 

:::::£-:: 

: 

-.-,.-_.- 

a 

:::::£-:: 

: 

:::::£-:: 

enter   "1"  for  him.   of  lft-dak  residuals  :s_'  •--• 
.;:•-:;  -=e   .£:*:=  e.e-e--":  ^:   .-:  :-:_£:■•-■ 

£--"£:     :     -:-   .~~  - Z--ZZ  :s"ce:.   -■*-.-.  •••• 

enter     :     to  shift  -  :£::=£:  :_:-  £::-£•■.-__£  •--- 

£-.-£  =  -i-  to  exit  elspace  -'■£  write   3pteig       

ENTER     5     ::  =   kin.   of  lft-Dah  residuals    :  •_     

:    EIGENVALUE   -Z    .-=:-£_£.  

ENTER]    "=      TO    -='."£    :E3E:3.  .... 

£.."3     ••-■     -;     r.;-     £_;;^;r  .... 

r..-r=     ■•;•■     -;    E ,  .  -    £_;;:.;£     i^;     «3  ;  "     ■:_:-  


--£  =e:  :: .-.  =  :  =   -:: 


: . 
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««»»  ADS  IS  3EING  ENTERED  FOR  E3LOW(  1)  *** 

««««  Z  =   0.97136E-00   0.3C81SE-01J 

««»»  S  =  -O.C2790E-01   0.2701bE-01J 

KHUN  ENTER  BOUNDS  ON  THIS  SLOW  LFT  EVECTOR 

■•■a  IN  f;o.13  FORMAT. 

«»«i  UNDAMAGED  EIGENVECTOR  NO.  ZQ***» 


REAL  TOLERANCE  = 


<»  IMAG  TOLERANCE 


ADS  COMPLETE 
OBJECTIVE  FUNCTION  = 
2-NORM  OF  RESIDUAL  = 
DT  2-NORM  OF  DIFF   = 


MMMM 

0.bl855E'01 
0.bl855E«01 
0.270S8E-02 


INFO  =  0    ITER  =   535 
DAM-LT  OBJ  =   O.OOOOOE'OO   UND-LT  OBJ  »   O.000OOE-00 
WEIGHT  FACTOR  =   0.10000E-01 


***»  ENTER 

<»»»  ENTER 

HMHM  ENTER 

HUNK  ENTER 

««■»  ENTER 


1"  TO  REENTER  ADS 
2"  TO  WRITE  ADSDATA 
3"  TO  WRITE  X3L0W 
4"  TO  WRITE  SEGEIG 
0"  TO  WRITE  OPTEIG 


*»»    OAM-RT  SLOW  SU2SPACE  RESIDUAL  =   0 . 42 b48E-0 1 
--■'    DAM-LT  SLOW  3UESPACE  RESIDUAL  =   0.70510E-02 


UNO  EVECT   SLOW  STATE    RGT-DAM  RESIDUALS 


LFT-DAM  RESIDUALS 


38 

1 

0 

40492E-02 

0 

37709E-02 

0 

618S5E»01 

0 

4b814E*01 

39 

2 

0 

40488E-02 

0 

37707E-02 

0 

b!855E-01 

0 

46814E-01 

40 

3 

0 

3:is:e-o; 

0 

29002E-02 

0 

37790E-02 

0 

26721E*02 

41 

4 

0 

4bOaSE-o; 

0 

373S8E-02 

0 

90S22E-02 

0 

63941E-02 

4; 

5 

0 

45815E-02 

0 

37442E-02 

0 

90522E-02 

0 

O3941E-02 

43 

6 

0 

24062E-02 

0 

:Sb97E-o; 

0 

1099°E-02 

0 

77762E-01 

44 

7 

0 

si4r:s-o; 

0 

2431°E-32 

0 

bB°3BE-01 

0 

48743E-01 

45 

8 

0 

4209bE-02 

0 

36473E-02 

0 

10488E»00 

0 

74!blE-0  1 

46 

9 

0 

37225E-03 

0 

0 

15057E*01 

0 

12600E-01 

47 

10 

0 

U849S-03 

0 

94354E-04 

0 

20671E-31 

0 

14616E-01 

48 

11 

0 

15197E-02 

0 

13792E-02 

0 

H536E-01 

0 

81495E-02 

49 

1: 

0 

91837E-02 

0 

8b=iC8E-0C 

0 

b9335E-»00 

0 

69318E-00 

50 

13 

0 

53323E-04 

0 

47874E-04 

0 

27317E-01 

0 

193UE-01 

51 

14 

0 

37652E-0S 

0 

36575E-05 

0 

23I57E-01 

0 

23CS4E-C1 

52 

15 

0 

42S4CE-03 

0 

42198E-03 

0 

51955E-01 

0 

3o294E-01 

53 

lb 

0 

9322?E-03 

0 

67544E-03 

0 

00000E-00 

0 

OOOOOE-OO 

54 

17 

0 

2701SE-03 

0 

2b8S2E-03 

0 

OOOOOE^OO 

0 

OOOOOE-00 

55 

18 

0 

34582E-05 

0 

34342E-05 

0 

OC00OE*OO 

0 

OOOOOE'OO 

ENTER  "1"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY 

USING  ARE  VECTOR  ELEMENTS  AS  VARIABLES" 
ENTER  "2"  FOR  LFT  NULL  SPACE  INTR3EC.  ANALY. 
ENTER  "Z"    TO  SHIFT  A  DESIRED  SLOW  EIGENVALUE 
ENTER  "«"  TO  EXIT  ELSPACE  AND  WRITE  OPTEIG 
ENTER  "5"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY 

USING  EIGENVALUE  AS  VARIABLE. 
ENTER  "i"    TO  WRITE  SEGEIG. 
ENTER  "7"  TO  EXIT  ELSPACE. 
ENTER  "0"  TO  EXIT  ELSPACE  AND  WRITE  X3L0W. 
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03 


«»««  £NT£R  SLOW  INDEX  OF  THE  RESIDUAL  FOR  ADS 


»■»  ADS  IS  BEING  ENTERED  fqr  ESLOw(  3)  »»* 

»■«  Z  =   0.95347E-G0   0.0C30OS-C0J 

»»«  S  =  -0.38118E-01   0.00300E-00J 

«»«  ENTER  SOUNDS  ON  THIS  SLOW  LFT  EVECTOR 

***  IN  F:0. 13  FORMAT. 

•»«  UNDAMAGED  EIGENVECTOR  NO.  40»«»« 


0.001 


REAL  TOLERANCE  = 


IMAG  TOLERANCE 


ADS  COMPLETE 
OBJECTIVE  FUNCTION  = 
2-NORM  OF  RESIDUAL  » 
DT  H-NCRM  OF  DIFF   = 


0.86096E-01 
0.86096E-01 
O.C887=E-OC 


INFO  =  C    ITER  =   536 
3AM-LT  03J  =   3.00000E-00   JND-LT  OBJ  =   0.00000E«00 
-JEIShT  FACTOR  =   3.I0C00E-0I 


»«»«  ENTER  "I"  TO  REENTER  ADS 

<•»»»  ENTER  "I"  TO  WRITE  ADSDATA 

«••«  ENTER  "3"  TO  WRITE  XSLOW 

»»«  ENTER  "4"  TO  WRITE  SEGEIG 

«»•»  ENTER  "0"  TO  WRITE  0PTEI3 


•««  CAM-RT  SLOW  SUBSPaCE  RESIDUAL  =   0.437riE-01 
•««  DAM-LT  SLOW  SUBSPACE  RESIDUAL  =   0.41330E-02 


UNO  EVECT   SLOW  STATE 

RGT-DAM  RESIDUE 

iLS 

LFT-DAM  RESIDUALS 

38 

1 

0.4IC67E-0: 

O 

•386C4E-0C 

0 

.61355E-01 

0 

,46814E->01 

39 

2 

0.4133SE-0C 

0 

■38747E-0: 

0 

.61855E»01 

0 

.4o314E*01 

4C 

3 

0.31300E-02 

0 

.C3791E-02 

0 

,8609bE*01 

0 

.54260E-01 

41 

4 

0.459C1E-0; 

0 

.37393E-0C 

0 

.°0522E-02 

0 

.63941E-02 

4C 

5 

C.46600E-02 

0 

3744;E-0C 

0 

.  90S22E-02 

0 

■63941E-02 

63 

6 

0.C5484E-0C 

0 

.C4186E-02 

0 

. 10999E*02 

0. 

,77762E«01 

44 

7 

0.C7543E-02 

0 

.C60:3E-02 

0 

.68938E-01 

0. 

48743E-01 

45 

3 

0.42097E-0C 

0 

.36473E-0C 

0 

, 10488E*00 

0 

.74I61E-01 

46 

9 

0.3188CE-03 

0 

■37983E-03 

0 

.15057E-01 

0. 

.12600E-01 

47 

10 

0.114o3E-03 

0 

897C0E-04 

0 

,20b71E-01 

0 

.14616E-01 

48 

11 

0. 153C8E-02 

0 

,  1380CE-02 

0 

■11536E-01 

0. 

814'5E-0: 

49 

1C 

0.«8442E-0: 

0 

.93774E-02 

0 

.69335E-00 

0. 

69318E-00 

50 

13 

0.5;751E-04 

a 

.47870E-04 

0 

.27317E-01 

0. 

19316E-01 

51 

14 

0.34713E-3S 

0 

33888E-05 

0 

.231S7E-01 

0 

23054E-01 

s: 

15 

0.4C6C5E-03 

0. 

4:294E-03 

0, 

,5195SE-01 

0. 

36294E-01 

53 

16 

0.9C30SE-03 

0. 

.66797E-03 

0 

.OOOOOE-00 

0 

OOOOOE-OO 

54 

17 

0.:6C03E-03 

0 

,2604^-03 

0. 

■OOOOOE-00 

0. 

OOOOOE-00 

55 

13 

0.31"8SE-05 

0 

.31772E-0S 

0. 

■OOOOOE'OO 

■o, 

OOOOOE'OO 

ENTER  "1"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY 

USING  ARB  VECTOR  ELEMENTS  AS  VARIABLES" 
ENTER  "2"  FOR  LFT  NULL  SPACE  INTRSEC.  ANALV. 
ENTER  "3"  TO  SHIFT  A  DESIRED  SLOW  EIGENVALUE 
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06 


ENTER  "«"  TO  EXIT  ELSPACE  AND  WRITE  OPTEIG 

ENTER  "5"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY 

USING  EIGENVALUE  AS  VARIABLE. 
ENTER  "6"  TO  WRITE  SEGEIG. 
ENTER  "7"  TO  EXIT  ELSPACE. 

ENTER  ••0"  TO  EXIT  ELSPACE  AND  WRITE  X3L0W. 


ENTER  SLOW  INDEX  OF  THE  RESIDUAL  FOR 


ADS  IS  BEING  ENTERED  FOR  E3LOW(  o)  »»* 

2    =   0.°°363£'00   O.OOOOOE'OOJ 

S  =  -0.5U23E«0C   0.O00O0E--00J 

ENTER  BOUNDS  ON  THIS  SLOW  LFT  EVECTOR 

IN  F20. 13  FORMAT. 

UNDAMAGED  EIGENVECTOR  NO.  43»»»« 


REAL  TOLERANCE 


I  MAG  TOLERANCE 


»»»        ADS  COMPLETE         *»** 

OBJECTIVE  FUNCTION  »  0.98729E»01 
2-NORM  OF  RESIDUAL  *  0.98729E»01 
DT  2-NORM  OF  DIFF  =  0.18694E-02 
INFO  =  0    ITER  =   374 

DAM-LT  OBJ  =   O.OOOOOE'OO   UND-LT  OBJ  '      O.OOOOOE'OO 

WEIGHT  FACTOR  =   0.10000E-0I 


•«»»  ENTER  "1"  TO  REENTER  ADS 

««»«  ENTER  "2"-  TO  WRITE  ADSDATA 

«»«»  ENTER  "3"  TO  WRITE  XSLOW 

km DM  ENTER  "4"  TO  WRITE  SEGEIG 

mum  ENTER  "0"  TO  WRITE  OPTEIG 


DAM-RT  SLOW  SLBSPACE  RESIDUAL  =   0.43688E-01 
DAM-LT  SLCW  SUBSPACE  RESIDUAL  =   0.402C4E-02 


UND  EVECT   SLOW  STATE    RGT-DAM  RESIDUALS  LFT-DAM  RESIDUALS 


38 

1 

0 

41283E-02 

0. 

38645E-02 

0, 

618S5E»01 

0 

46814E*01 

39 

2 

0 

,41369E-o: 

0, 

38727E-02 

0, 

61855E'01 

0 

46814E'01 

40 

3 

0 

.31302E-02 

0, 

28793E-02 

0, 

86096E-01 

0 

,54260E«01 

41 

4 

0 

.4S92SE-02 

0, 

37393E-02 

0 

.90522E-02 

0 

■63941E-02 

42 

5 

0 

.46638E-02 

0, 

37442E-02 

0 

.90522E-02 

0 

■63941E-02 

43 

6 

0 

■25487E-02 

0. 

24189E-02 

0. 

,9872«E'01 

0 

.69232E-01 

44 

7 

0 

.27545E-02 

0 

26020E-02 

0. 

63°38E-01 

0 

,48743E»01 

45 

8 

0 

.41914E-02 

0. 

■36321E-02 

0. 

.1C488E-00 

0 

.74161E-01 

46 

9 

0 

.3°881E-03 

0. 

,37°81E-03 

0 

■1S057E-01 

0 

.12600E-01 

47 

10 

0 

.  11464E-03 

0 

89769E-04 

0 

.20671E-01 

0 

14616E-01 

48 

11 

0 

.15327E-02 

0, 

.13811E-02 

0 

■  11536E-01 

0 

.81495E-02 

40 

12 

0 

.98435E-02 

0, 

,93766E-02 

0 

,6°335E"00 

0 

,69318E»00 

50 

13 

0 

.52782E-04 

0, 

.47872E-04 

'o 

■27317E-01 

0 

.19316E-01 

51 

14 

0 

.35469E-05 

0 

.34311E-05 

0 

.23157E-01 

0 

.23054E-01 

5: 

15 

0 

.42531E-03 

0 

.42198E-03 

0 

■519S5E-01 

0 

.J6294E-01 

53 

16 

0 

.90816E-03 

0 

.64633E-03 

0 

,00000E*00 

0 

.OOCOOE'OO 

54 

17 

0 

.26202E-03 

0 

.26049E-03 

0 

,OOOOOE«-00 

0 

.OOOOOE'OO 
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55 


0.31984E-0S   0.31771E-05    0 . OOOOOE-00   0 . OOOOOE«00 


»«»»  ENTER  "1"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY 
-»»»        USING  AR8  VECTOR  ELEMENTS  AS  VARIABLES" 

»""  ENTER  ";••  FOR  LFT  NULL  SPACE  INTRSEC.  ANALV. 
ENTER  "3"  TO  SHIFT  A  DESIRED  SLOW  EIGENVALUE 

--»-  ENTER  "«"  TO  EXIT  ELSPACE  AND  WRITE  OPTEIG 

»«"  ENTER  "5"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONlY 

»  USING  EIGENVALUE  AS  VARIABLE. 

»  ENTER  "6"  TO  WRITE  SEGEIG. 

-  ENTER  "7"  TO  EXIT  ELSPACE. 

«  E>-~ER  "0"  TO  EXIT  ELSPACE  AND  WRITE  XSLOW. 


ENTER  SLOW  INDEX  OF  THE  RESIDUAL  FOR  ADS  »« 


•*»  ADS  IS  BEING  ENTERED  FOR  ESLOWI  i)    »«» 

'"»  3  '       0.99363E-00   0.00000E-00J 

»««  S  =  -0.51123S-00   0.0C0O0E-OOJ 

"o  ENTER  SCUNCS  ON  THIS  SLOW  LFT  EVECTOR 

<*•<  IN  F20.  13  FORMAT. 

•i-  UNDAMAGED  EIGENVECTOR  NO.  £3«»-» 


=Ea^  "CLERanCE  =   ««»« 


»»■!•  IMAG  TOLERANCE  =   «" 


ADS  COMPLETE 

OBJECTIVE  FUNCTION  = 

2-NCRM  OF  RESIDUAL  a 

DT  2-NORM  OF  DIFF  = 


0.86568E-01 
0.86568E-01 
0.38124E-02 


INFO  =  0    ITER  =   373 
DAM-lT  OBJ  =   O.OOOOCE'OO   UND-LT  OBJ 
WEIGHT  FACTOR  =   0.1COO0E-01 


O.COOOOE'OO 


»»»«  ENTER  "1 

»-««  ENTER  "2 

)«)  ENTER  "3 

" ENTER  ™< 

»»*»  ENTER  "0 


TO  REENTER  ADS 
TO  WRITE  AOSDATA 
TO  WRITE  XSLOW 
TO  WRITE  SEGEIG 
TO  WRITE  OPTEIG 


«»«»  DAM-RT  SLOW  SUESPACE  RESIDUAL  =   0.43720E-01 
•  «««  DAM-LT  SLOW  SUESPACE  RESIDUAL  =   0.38988E-02 


UNO  EVECT   SLOW  STATE    RGT-DAM  RESIDUALS 


LFT-DAM  RESIDUALS 


38 

1 

0 

41294E-02 

0 

38663S-02 

0 

61355E-01 

0 

46814E-01 

39 

2 

a 

4i34*E-02 

0 

38703E-02 

0 

61655E*01 

0 

46814E-01 

4a 

3 

0 

31302E-C2 

0 

28796E-02 

0 

8609SE-01 

0 

54260E-01 

«i 

4 

0 

4604CE-02 

0 

37540E-02 

0 

90522E-02 

0 

63941E-02 

42 

5 

0 

4b59<>E-02 

0 

37465E-0C 

0 

90S22E-02 

0 

63941E-02 

43 

6 

0 

2S432E-02 

0 

24184E-02 

0 

86568E-01 

0 

59C35E'01 

44 

7 

3 

27S41E-02 

0 

26016E-02 

0 

68°38E-01 

0 

48743E-01 

45 

8 

0 

41913E-02 

0 

3S321E-02 

0 

1048SE'00 

0 

741S1E-01 

4o 

9 

0 

3O374E-03 

0 

37«75E-G3 

0 

1S057E-01 

0 

12600E"0I 

47 

10 

0 

11465E-03 

0 

8977°E-04 

0 

20671E-01 

0 

14616E-01 

48 

11 

a 

i53;»E-o: 

0 

13811E-02 

0 

U536E-01 

0 

8149SE-02 
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4« 

12 

0 

."8419E-02 

0. 

"3750E-02 

0 

.69335E-00 

0. 

69318E-00 

50 

13 

0 

.S:770E-04 

0. 

47872E-04 

0. 

■27317E-01 

0. 

.193UC-01 

51 

14 

0 

.35123E-0S 

0 

.34142E-05 

0 

.Z3157E-OI 

0, 

23054E-01 

s: 

15 

0 

42S32E-03 

0. 

,4;i98e-03 

0 

S19SSE-01 

0. 

36294E-01 

53 

16 

0 

. 93292E-Q3 

0, 

67828E-03 

0 

.00000E-00 

0 

OOOOOE-00 

54 

17 

0 

.26201E-03 

0. 

26043E-03 

0 

■OOOOOE-00 

0 

oooooe-oo 

55 

IS 

0 

.31931S-C5 

0. 

31763E-0S 

0 

.OOOOOE-CO 

0 

OOOOOE-00 

ENTER  "1"  FOR  MIN.  OF  LFT-OAM  RESIDUALS  ONLY 

USING  AR3  VECTOR  ELEMENTS  AS  VARIABLES" 
ENTER  "2"  cOR  LFT  NULL  SPACE  INTRSEC.  ANALY . 
ENTER  "S"    TO  SHIFT  A  DESIRED  SLOW  EIGENVALUE 
ENTER  "«"  TO  EXIT  ELSPACE  AND  WRITE  OPTEIG 
ENTER  "5"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY 

USING  EIGENVALUE  AS  VARIABLE. 
ENTER  "S"  TO  WRITE  SEGEIG. 
ENTER  "7"  TO  EXIT  ELSPACE. 
ENTER  "0"  TO  EXIT  ELSPACE  AND  WRITE  XSLOM. 


<«  ENTER  SLOW  INDEX  OF  THE  RESIDUAL  cOR  ADS 


»««»  ADS  IS  3EING  ENTERED  FOR  £SLOW(  9]  »*« 

mm*  2    =   0.9°<>78E-00   0.00000E»00J 

»»««  s  =  -0.I7602E-01  o.ooooos-oaj 

mi  ENTER  BOUNDS  CN  THIS  SLOW  LFT  E VECTOR 

««»«  IN  F20. 13  FORMAT. 

HHHH  UNDAMAGED  EIGENVECTOR  NO.  46»«»« 


REAL  TOLERANCE  « 


IMAG  TOLERANCE  = 


»»«       ADS  COMPLETE        »««» 

OBJECTIVE  FUNCTION  =  0.13505E-01 
2-NORM  OF  RESIDUAL  -  0.13S05E-01 
OT  2-NORM  OF  DIFF  =  0.28475E-02 
INFO  =  0    ITER  =   472 

DAM-LT  OBJ  '       0. O0OO0E-00   UND-LT  08J  "   0. 00000E-00 

WEIGHT  FACTOR  =   0.1CO00E-01 


ENTER  "1"  TO  REENTER  ADS 
ENTER  "2"  TO  WRITE  ADSDATA 
ENTER  "3"  TO  WRITE  XSLOW 
ENTER  "4"  TO  WRITE  SEGEIG 
ENTER  "0"  TO  WRITE  OPTEIG 


DAM-RT  SLOW  SUSSPACE  RESIDUAL  =   0.43731E-01 
DAM-LT  SLOW  SUSSPACE  RESIDUAL  =   0.38833E-02 


UND  EVECT  SLOW  STATE  RGT-DAM  RESIDUALS           LFT-DAM  RESIDUALS 

38  1  0.41292E-02   0.38661E-02    0.61855E-01   0.46814E-01 

39  2  0.41348E-02   0.38702E-02    0.61855E-01   0.46814E-01 

40  3  0.31302E-02   0.28796E-02    0.8o0°6E*01   0.54260E-01 

41  4  0.46040E-02   0.37540E-02    0.90522E-02   0.63941E-02 

42  5  0.46720E-02   0.37594E-02    0.O0522E-02   0.63941E-02 
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43 

6 

0 

.2S481E-02 

0 

■24183E-02 

0. 

86S68E-01 

0 

■5923SE-01 

44 

7 

0 

,:754oe-o: 

0. 

,;60i5E-o: 

0. 

68938E-01 

0. 

.48743E-01 

45 

8 

0 

«19UE-02 

0 

.363C1E-02 

0. 

10488E-00 

0 

.74161E-01 

46 

9 

0 

.3=372E-03 

0 

.37973E-03 

0 

.13505E-01 

0 

.  1 : 6  0  1  E  •  0  1 

67 

10 

0 

.11465E-03 

0 

,89782E-0« 

0 

.20671E-01 

0 

.14616E-01 

43 

11 

0 

,  1S326E-02 

0 

.1381IE-02 

0 

.115365-01 

0 

.8149SE-02 

4a 

12 

0 

.°84l3E-02 

0 

.93745E-02 

0 

.69335E-00 

0 

.69318E-00 

50 

13 

0 

■S2771E-04 

0. 

.47873E-04 

a 

.27317E-01 

0 

.193UE-01 

51 

14 

a 

.3512SE-05 

0 

,34l43E-05 

0 

.23157E-01 

0 

.23CS4E-01 

5: 

15 

0 

.42S32E-03 

0 

.4C198E-03 

0 

S1°55E-01 

0 

.36294E-01 

53 

16 

0 

, o3300E-03 

0 

.S7827E-03 

0 

.0O00OE-00 

a 

.OOOOOE-00 

54 

17 

0 

.26201E-O3 

0 

.26043E-03 

0 

.OOOOOE-00 

0 

.OOOOOE-00 

55 

18 

0 

.  31961E-05 

0 

.31763E-0S 

0 

.00000E-00 

0 

.OOOOOE-00 

ENTER  "1"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY 

USING  AR8  VECTOR  ELEMENTS  AS  VARIABLES- 
ENTER  "2"  FOR  LFT  NULL  SPACE  INTRSEC.  ANALY. 
ENTER  "3"  TO  SHIFT  a  DESIRED  SLOW  EIGENVALJE 
ENTER  "<."    TO  EXIT  ELSPACE  AND  WRITE  OPTEIG 
ENTER  "S"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY 

USING  EIGENVALUE  AS  VARIABLE. 
ENTER  "6"  TO  WRITE  SEGEIG. 
ENTER  "7"  TO  EXIT  ELSPACE. 
ENTER  "0"  TO  EXIT  ELSPACE  AND  WRITE  XSLOW . 


•ENTER  "1 
"ELSE  "O" 


TO  CALC  RESIDS  FOR  RECONSTRUCTED  SPACE" 


>•»«  DAM-RT  SLOW  SUBSPACE  RESIDUAL  = 
4«»«  OAM-LT  SLOW  SUBSPACE  RESIDUAL  = 


0.43731E-01 
0.91277E-02 


UNO  EVECT   SLOW  STATE    RGT-DAM  RESIDUALS 


LFT-DAM  RESIDUALS 


38 

1 

0. 

41292E-02 

0. 

38661E-02 

0, 

21257E-02 

0. 

■20396E-02 

39 

2 

0 

■  41348E-02 

0 

.38702E-02 

0, 

22255E-02 

0 

.21394E-02 

40 

3 

0. 

31302E-02 

0 

.23796E-02 

0. 

U8949E-01 

0 

.S0227E-01 

41 

4 

0 

4O:40E-02 

0 

37540E-02 

0, 

90448E-02 

0 

63947E-02 

42 

5 

0. 

4672CE-02 

0 

.37594E-02 

0 

«1533E-02 

0 

.63948E-02 

43 

6 

0 

25481E-02 

0 

.C4183E-G2 

0. 

,16404E*02 

0 

, 1S390E-02 

44 

7 

0. 

,27540E-02 

0 

,2o015E-02 

0, 

.92S55E-01 

0 

.76545E-01 

45 

8 

0 

.41914E-02 

0 

3=;::e-02 

0, 

.10489E-00 

0 

•74163E-01 

46 

9 

0 

,3°872E-0S 

0 

.37973E-03 

0 

.U592E-02 

0 

.  11384E-0C 

47 

10 

0 

.11465E-03 

0 

.89782E-C4 

0, 

.20672E-01 

0 

.14617E-01 

48 

11 

a. 

.15326E-CC 

0 

,  13811E-02 

0 

,H57«E-r01 

0 

,814»5E-02 

49 

12 

0 

.98413E-02 

0 

.93745E-02 

0 

.78337E-00 

0 

.69219E-00 

50 

13 

c 

•52771E-04 

0 

.47873E-04 

0. 

.27317E-01 

0 

.19315E-01 

51 

14 

0 

.35123E-05 

0 

•34I43E-05 

0 

.2S001E-01 

0 

.2S697E-01 

52 

IS 

0 

.4C532E-03 

0 

.42198E-03 

0 

.519916-01 

0 

.36295E-01 

53 

16 

0 

.93300E-03 

0 

.67827E-03 

0 

.OOOOOE-00 

0 

.OOOOOE-00 

54 

17 

0 

.26201E-03 

0 

.2604SE-03 

0 

.OOOOOE-00 

0 

.OOOOOE-OO 

55 

18 

0 

.31981E-05 

0 

■31768E-0S 

0 

.OOOOOE-OO 

0 

.OOOOOE-OO 

-■  enter  "i"  fcr  min.  of  lft-dam  residuals  only  ««» 

•»  USING  ARB  VECTOR  ELEMENTS  AS  VARIABLES"""" 

"  ENTER  "2"  FOR  LFT  NULL  SPACE  INTRSEC.  ANALY.  »"> 

•«  ENTER  "3"  TO  SHIFT  A  DESIRED  SLOW  EIGENVALUE  ""• 

>«  ENTER  "4■•  TO  EXIT  ELSPACE  AND  WRITE  OPTEIG  "»» 

»«  EN"ER  "S"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY  »»> 

««           USING  EIGENVALUE  A3  VARIABLE.  »«* 

*»  ENTER  "i"    TO  WRITE  SEGEIG.  "«" 

»«  ENTER  "7"  TO  EXIT  ELSPACE.  »»« 

»»  ENTER  "O"  TO  EXIT  ELSPACE  AND  WRITE  XSLOW.  "«> 
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•ENTER  "1"  TO  CALC  RESIDS  FOR  RECONSTRUCTED  SPACE' 
"ELSE  "0".  « 

0 

R:  T=1S1 .47/151.81  13:08:63 

RECONF 

VS  FORTRAN  COMPILER  ENTERED.   13:0°:04 

"MMAINM"  END  OF  COMPILATION  1  ««««-« 

nxCMATML"'  END  OF  COMPILATION  2  * 

«*RANKD»«  END  OF  COMPILATION  3  «»«««» 

imWRMATD""  END  OF  COMPILATION  4  mm  mm 

»«SROOT»«  END  OF  COMPILATION  5  »««>"i« 
VS  FORTRAN  COMPILER  EXITED.    11:09:11 


LOADING  RECONF  AND  ORACLSA 
EXECUTION  BEGINS. . . 

ENTER  "1"  TO  write  UNDAMAGED  EIGENSTRUCTURE.5 

SYST.  MATRICES. (READ  "RECONF"  DATA  Al. 

"UNDIEG"."UNDABC".S  "CLM". 
ENTER  "2"  TO  READ  UNDAMAGED   EiGENSTSUCTURE  AND 

WRITE  SLOW  RT  SUBPACE  DATA  FOR  USE  3V 

"ERSPACE"  (WRITE  "ERSPACE"  DATA  Al ) 
ENTER  "3"  TO  COMPUTE  OECONFIGURED  GAINS. 

(WRITE  "FRECON"  DATA  Al) 
ENTER  "4"  TO  COMPUTE  RECONFIG.  EI GENSTRUCTURE 

AND  TIME  RESPONSE  (3PTMATD.0PTPL0T) 
ENTER  "5"  TO  COMPUTE  0  AND  WRITE  FILE  12 

"FXACT"  DATA. 


>•»  ENTER  "1"  TO  DISPLAY  DESIRED  EIGENSTRCTURE" 
»««  ENTER  "0"  OTHERWISE.  » 


«...  CALLING  LSVDF  FOR  B  »»«« 

mom  LSVDF  OF  "B"  COMPLETE  »««« 

»mm  RANK(B)  =  10  **** 

mum  CALLING  LSVCF  FOR  C  »«>«« 

mum  LSVDF  OF  "C"  COMPLETE  »«■« 
mt*H  RANK(C)  =  18  **** 

R:  T=8.34/9.72  13:09:41 

RECONF 

VS  FORTRAN  COMPILER  ENTERED.    13:09:45 

x»MAIN«x  END  OF  COMPILATION  1  mm  mm 

•»CMATML»»  END  OF  COMPILATION  ;  «»«»»« 

i«RANKD»»  END  OF  COMPILATION  3  mumim 

««WRMATD««  END  OF  COMPILATION  4  »«»««« 
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«»SROOT««  END  OF  COMPILATION  5  Mi  mm* 
VS  FORTRAN  COMPILER  EXITED.    13:09:55 


LOADING  RECONF  AND  CRACLSA 
EXECUTION  3EGING. . . 


TO  WRITE  LNDAMAGED  EIGENSTRUCTURE . 3 

SVST.  MATRICES. (READ  "RECCNF"  OATA  Al, 

"UNDIEG" . "UNDA3C" . 3  "CLM" . 
TO  READ  UNDAMAGED   E IGENGTRUCTURE  AND 

-RITE  GLOW  RT  SUBPACE  DATA  FOR  USE  BY 

"E'SPACE"  (WRITE  "ERSPACE"  DATA  Al) 
TO  COMPUTE  RECONFIGURED  GAINS. 

(WRITE  "FRECON"  DATA  Al) 
TO  COMPUTE  RECONFIG.  EI GENGTRUCTURE 

AND  TIME  RESPONSE  (OPTMATD.OPTPLOT) 
TO  COMPUTE  C  AND  WRITE  FILE  12 

'•FXACT'*  DATA. 


m  ENTER  "I"  TO  CISPLAV  RECONFIGURED 
<»  EIGENSTRUCTJRE.  ELSE  ENTER  "0". 


»*»  DAMAGED  FEEDBACK  GAIN  MATRIX 
COL  1-9 


0 

OOOOOE'OO 

-0 

.25739E-02 

0 

74813E-03 

-0, 

.19141E-01 

0 

.OOOOOE'OO 

-0 

.2S739E-02 

0 

.74313E-03 

-0 

.19141E-01 

0 

.OOOOOE'OO 

0 

.OOOOOE'OO 

0 

.OOOOOE'OO 

0. 

.OOOOOE'OO 

0 

.OOOOOE'OO 

0. 

.OOOOOE'OO 

0. 

.OOOOOE'OO 

0. 

■OOOOOE'OO 

0 

,00O0OE'OO 

0 

.OOOOOE'OO 

0. 

.OOOOOE'OO 

0 

■OOOOOE'OO 

0 

■OOOOOE'OO 

0. 

.OOOOOE'OO 

0. 

.OOOOOE'OO 

0 

■OOOOOE'OO 

0 

.OOOOOE'OO 

0 

.OOOOOE'OO 

0 

.OOOOOE'OO 

0 

■OOOOOE'OO 

0. 

.OOOOOE'OO 

0 

.OOOOOE'OO 

0 

.OOOOOE'OO 

0 

.OOOOOE'OO 

0 

.U500E'02 

0 

.OOOOOE'OO 

0 

■OOOOOE'OO 

0 

.OOOOOE'OO 

0. 

.  16500E'02 

0 

.OOOOOE'OO 

0 

.OOOOOE'OO 

0 

.OOOOOE'OO 

0. OOOOOE'OO  0.24000E-01 

0. OOOOOE'OO  -0.24000E-01 

0. OOOOOE'OO  0. OOOOOE'OO 

0. OOOOOE'OO  0. OOOOOE'OO 

0. OOOOOE'OO  0.19200E-01 

0. OOOOOE'OO  -0.19200E-01 

0. OOOOOE'OO  0.600C0E-0I 

0. OOOOOE'OO  -0.60000E-01 

O.68937E'O0  0.38807E'00 

0.b8937E'00  0.38807E'00 


-0.1914IE-C1  -0.2107°E-00  -0.38282E-01   0. OOOOOE'OO   0. OOOOOE'OO   0. OOOOOE'OO   0. OOOOOE'OO   0. OOOOOE'OO   0. OOOOOE-OO 

0.1a14iE-01  -0.2107°E'O0  -0.38232E-01  0. OOOOOE'OO  0. OOOOOE'OO   0. OOOOOE'OO   0. OOOOOE'OO  0. OOOOOE'OO  0. OOOOOE'OO 

0. OOOOOE-OO  0. OOOOOE'OO   0. OOOOOE-00  0.4123SE-01  0. OOOOOE-OO   0. OOOOOE-OO   0. OOOOOE-00  0. OOOOOE'OO  0. OOOOOE'OO 

0. OOOOOE'OO  0. OOOOOE-OO   0. OOOOOE-00  0.41235E-0!  0. OOOOOE'OO   0. OOOOOE'OO   0. OOOOOE'OO  0. OOOOOE'OO  0. OOOOOE'OO 

0. OOOOOE'OO  0. OOOOOE'OO   0. OOOOOE'OO  0. OOOOOE'OO  0.21883S-01   0. OOOOOE'OO   0. OOOOOE'OO  0. OOOOOE'OO  0. OOOOOE'OO 

0. OOOOOE'OO  0. OOOOOE'OO   0. OOOOOE'OO  0. OOOOOE'OO  0.21883E-01   0. OOOOOE'OO   0. OOOOOE'OO  0. OOOOOE'OO  0. OOOOOE'OO 

0. OOOOOE'OO  0. OOOOOE'OO   0. OOOOOE'OO  0. OOOOOE'OO  0. OOOOOE'OO   0. OOOOOE'OO   0. OOOOOE'OO  0. OOOOOE'OO  0. OOOOOE'OO 

0. OOOOOE'OO  0. OOOOOE'OO   0. OOOOOE-00  0. OOOOOE-00  0. OOOOOE'OO   0. OOOOOE'OO   0. OOOOOE'OO  0. OOOOOE'OO  0. OOOOOE'OO 

0. OOOOOE'OO  0. OOOOOE'OO   0. OOOOOE'OO  0. OOOOOE'OO  0. OOOOOE'OO  -0.8S63»E-02  -0.49395E-02  0.78040E-04  0.317S0E-02 

0. OOOOOE'OO  0. OOOOOE'OO   O.COOOOE-00  0. OOOOOE'OO  0. OOOOOE'OO  -0.8563oE-02  -0 . 4 93 '5E-02  0.78040E-04  0.31750E-02 


0 

.21435E'G0 

-0, 

13143E'O0 

0 

.OOOOOE'OO 

0 

.21435E-00 

-0, 

13U3E-00 

0 

.OOOOOE-00 

0 

.OOOOOE'OO 

0. 

OOOOOE-OO 

0 

,20«48E-01 

0 

.OOOOOE'OO 

0. 

OOOOOE-00 

0 

.20948E-C1 

0 

.OOOOOE'OO 

0. 

OOOOOE'OO 

0 

.  11028E-01 

0 

.OOOOOE-00 

0. 

OOOOOE'OO 

0 

.  iio:se-oi 

0 

.OOOOOE-OO 

0. 

■OOOOOE'OO 

0 

. aooooE'00 

0 

.OOOOOE-00 

0 

OOOOOE'OO 

0 

•OCOOOE-00 

0 

.OOOOOE'OO 

0. 

OOOOOE'OO 

0 

.OOOOOE-OO 

0 

.OOOOOE'OO 

0. 

OOOOOE'OO 

0 

•OOOOOE'OO 

COL 

10 

-  18 

«*  FTILDA  »»«•« 


0.21414E'00    -0.13102E-OO       0.44209E-03       0.8bS01E-06       0.24001E-01       0  .  38586E-05    -0  .  26040E-02       0 . 74 733E-03    -0 . 1 9S64E-0 I 

0.21414E-00  -0.13i02E'00  0.44171E-03    -0.32910E-06    -0.24001E-01  0.42988E-0S    -0 . 26C40E-02  0.74733E-03  -0.19364E-01 

0.3S389E-C2  0.74240E-02  0.26497E-01    -0.90519E-06    -0.29955E-06  -0.198S9E-04    -0 . 5002°E-03  -0 . 1 390 1E-04  -0.37204E-02 

0.35390E-02  0.74241E-02  0.266<>8E-01    -0.90517E-0S    -0.29a54E-06  -0.1985°E-04    -0.5O030E-03  -0.13°02E-04  -0.37205E-02 

0.S9863E-02  -0.93988E-02  0.47366E-02    -0.10017E-04       0.19203E-01  -0.225SSE-03       0.517S2E-03  0.22812E-04  0.38487E-02 

0.596S9E-02  -0.93178E-0:  0.47956E-02    -0.1439CE-05    -0.19204E-01  0.29425E-04       0.S1748E-03  0.22812E-04  0.38484E-02 

G.234a2E-07  -0.18214E-06  -0.15221E-05    -O.U780E-05       0.o0005E-0l  -0.S2361E-04    -0.30742E-08  0.28"45E-10  -0.3S545E-07 

0.2=453E-07  0. 1819oE-0b  0.1S203E-05       0.16764E-0S    -0.6G005E-01  0.52332E-04       0.3076°E-03  -0.28753E-10  0.35S»oE-07 

0.14963E-05  -0.63927E-05  -0.43987E-04       0.68943E-00       0.38810E*00  0.1o50CE'02       0.8°218£-07  0.72124E-08  0.64°80E-06 
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0 . 16751E-05    -0.63450E-0S    -0 .iZ°Z2Z-04       0.68943E-00       0.38810E-00       0.16500E-0C       0.8601IE-07       0.71:505-08       O-o^S^SE-Ob 


-0.19364E-01    -0.21C25£*0C    -0  .  387S8E-0  1      0.S4654E-04      0.I7951E-04      0.10460E-07      0 .  54048E-C8   -O.C;?18E-08   -0  .844'3E-08 

0.19364E-01  -0.210C5E-00    -0 . 387C8E-0  1       3.:465<>E-C4       0.17918E-C4       0.1347«E-07       0.65791E-C8    -0  .  CS55  1E-08    -0  .  <i°3°4E-  08 

0.37I04E-0;  0.938;7E-0C   -0.74407E-CC      0.41S99E-01      0 .435 1SE-03   -0 . 30406E-07   -0 . 1 o:04E-07      0.4CS37E-08      0.iS98rE-:? 

0.37I05E-0:  0.'38C?E-0;    -0.74409E-02      0.41299E-01      0.43516E-C3    -0.30405E-07   -0.16:03E-07      0.4C510E-C8      0.1Sc85E-07 

0.38487E-0;  -0.1CC94E-01       0.76«o5E-0:    -0.57057E-04       O.S1408E-01    -0 . S6S 1 1E-07    -0 . C84: 1E-07    -0 . ;»8:8E-08       0.:3ooiE-07 

0.33484E-02  -0.12293E-01       0.769596-02   -0.57047E-04      0.2H09E-0I    -0  .  U1C8E-06    -0 . 1039;E-0o    -0.2S0«7E-08      0.484;:e-07 

0.35545E-37  -0.971S9E-07   -0 .«73e 0E-07    -0.190S7E-08   -0.171S8E-06      0.15C67E-07      0.12S69E-O7    -0.7J990E-10    -0.49395E-08 

0.3556oE-07  0.97033E-07      0.47387E-37      3.190SCE-08      0 . 17133E-06   -0 . 1S338E-07   -0 . 1242SE-07      0.79<"30E-10      0.4°5:3E-03 

0.64380E-06  -0.5J788E-OS       0.1a318E-05    -0.15384E-06    -0.5974;E-05    -0.8564BE-02    -0 . 4 9398E-02       0.78041E-04       0.3I75SE-0: 

0.6;5?5E-0b  -O.SomE-CS      0.13841E-0S   -0.15834E-06    -0.5°690E-05   -0.85637E-02   -0 . 4«398E-0C      0.78045E-04      0.317S3E-C2 

<«»h   ENTER    "1"    FOR    TIME   RESPONSE   CalC.     »«-« 
•«mi    ENTER    "0"    OTHERWISE.  «»*« 

0 

R;    T»7.S7/<>.04    13  :  10  :  CS 
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